Select Code to Download

my $ftp = Net::FTP->new($ftpServer, Debug => 0) or die "Cannot connect
+ to $ftpServer: $@";
    $ftp->login($ftpUsername, $ftpPassword) or die 'Cannot login: ' . 
+$ftp->message . "\n";
    $ftp->mkdir($webServerDir);
    $ftp->cwd($webServerDir) or die "Cannot change working directory t
+o $webServerDir: " . $ftp->message . "\n";
    $ftp->put($file) or die "Cannot copy file to server: " . $ftp->mes
+sage . "\n";