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