1 2 3 4
$username = shift @ARGV; $password = shift @ARGV; $server = shift @ARGV; $debug = shift @ARGV;
my ($username, $password, $server, $debug) = @ARGV;