my $ftp = Net::FTP->new($hostname,Debug=>1)
    or die "Cannot connect to $hostname: $@";