What are the results when you run the script? Does it do anything?

On a side note, you can group your options definition with defaults into one statement

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),
);
[download]