six66

#!/usr/bin/perl 

use strict;
use warnings;

$site = "http://sample.com";
$testcommand = "test command";
print "SAMPLE\n";

Base();

if (($base eq "show") && ($command eq "options")){
   Options();
}

if ($base eq "show"){
   Show();
}

exit;


# ----------
# subs down here
# -----------
sub Base {
   print ">";
   our $ex=<STDIN>;
   chomp $ex;
   our ($base, $command) = split(/ /, $ex);
}

sub Show{
   print "s0me test shit\n";
   print "ex: six66 \n";
   Base();
}

sub Options{
   print "Site : $site \n";
   print "Test : $testcommand\n";
   Base();
}