Shell Programming and Scripting

foreach my $file ( map { (/^[^\.].+$/) ? $_ : () } @lines ) {
     $ftp->get($file);
}

#!/usr/local/bin/perl

use Net::FTP;

foreach $t ( 10.10.10.10   20.20.20.20 ) {
                chdir "$script_dir";
                print "Now Processing $t ...\n";

                $ftp = Net::FTP->new("$t", Timeout=>240, Debug => 0)
                or die "Cannot connect to some.host.name: $@";

                $ftp->login("userid",'password')
                or die "Cannot login ", $ftp->message;

                $ftp->cwd("/myreports")
                or die "Cannot change working directory ", $ftp->message;

                my @lines = $ftp->ls(<*sorts>);
                        foreach my $summary_names ( map { (/^[^\.].+$/) ? $_ : () } @lines ) {
                                $ftp->get($summary_names);
                        };

                $ftp->quit;
        };

 $ftp->ls(<*sorts>);

my @lines = grep { /^([^.].*)?sorts$/ } $ftp->ls();
foreach my $name (@lines) {
    $ftp->get($name);
}