my ($username, $password, $server, $debug) = @ARGV;