GetOptions ( "i=s" => \(my $ip = 0), "u=s" => \(my $username = 0), "p=s" => \(my $password = 0), "r=s" => \(my $remotedir = 0), "l=s" => \(my $localdir = 0), "f=s" => \(my $filename = 0), "m=s" => \(my $filemode = 0), );