Shell Programming and Scripting

#!/usr/bin/perl -w
use Net::FTP;

my @str, $line, $ftp;

while($line=<STDIN>)
{
        chomp($line); # Remove newline from end of string
        push(@str, $line); # Add string to end of @str array
}

$ftp = Net::FTP->new("localhost");
$ftp->login('user', 'pass');
$ftp->cwd("path");
$ftp->binary;
#$flag=$ftp->mdtm($_);

my @filenames=$ftp->ls();
print " Total files:", $#filenames + 1, "\n";
foreach (@filenames)
{
        print $_, " Size:[", $ftp->size($_), "]", " Mtime ", scalar(localtime($ftp->mdtm($_))), "\n";

        for my $s(@str)
        {
                if(index($_, $s) >= 0)
                {
                        print $_, " matches ", $s, "\n";
                        $ftp->get($_);
                }
        }
}

$ftp->quit();

bash-3.00$ more files.txt
450070
766133

./ftp.pl < list

 print $_, " Size:[", $ftp->size($_), "]", " Mtime ", scalar(localtime($ftp->mdtm($_))), "\n";

$./test.pl < files.txt
Total files:10556

$ more files.txt
450070
766133