#!/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";
}
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";
}