Perl ftp

#!/usr/bin/perl


use English;
use strict;
use warnings;


use Net::FTP;


my $ftp = Net::FTP -> new("10.58.118.40", Debug => 0) or die $!;
$ftp -> login("SVFUNC\\FTPuser", "dtb_dm#22") or die $!;


my @list = $ftp -> ls("/SNMPDC");


#$ftp -> binary();
#$ftp -> get('/SNMPDC/*.spf');


$ftp -> quit;


foreach my $tmp(@list) {
    print "$tmp\n";
}