Select Code to Download

#!/usr/bin/perl -w

...
my $password='xxxx';
my $ftp=Net::FTP -> new($hostname) or die ("Connect failed");
$ftp->quit;

Name "main::username" used only once: possible typo at filedate.pl lin
+e 15.