#!/usr/bin/perl  
  
use strict;  
use warnings;  
use Net::FTP;  
use POSIX qw/strftime/;  
  
my $Yday = strftime("R%y%m%d", localtime(time - 86400));  
  
chdir "/home/AMA";  
my @myDIR =('D010AMAB', 'D000AMAA', 'D010AMA9', 'D000AMA8',  
            'D010AMA5', 'D000AMA6', 'D010AMA7', 'D000AMA4',  
            'D010AMA3', 'D000AMA2', 'D010AMA1', 'D000AMA0'  
);  
  
my $ftp = Net::FTP->new("HOST", Debug => 1)  
          or die "Failed to connect to FTP server ";  
print $ftp->message(), "\n";  
  
$ftp->login("USER",'PASS')  
      or die "Failed to login to FTP server ";  
print $ftp->message(), "\n";  
  
foreach my $DIR(@myDIR){  
    print "changing cwd to $DIR\n\n";  
    $ftp->cwd("/$DIR")  
          or warn "Failed to cd to /$DIR ", print $ftp->message() and next;  
    print $ftp->message();  
  
    $ftp->ascii or warn "Unable to switch to ascii mode ";  
    my @file = grep { /^([^.].*)?$Yday/ } $ftp->ls();       // I would like to verify by printing the list of files in the volume.  
    $ftp->binary or warn "Unable to switch to binary mode ";  
    foreach my $file(@file){  
        print "retriving file '$file'\n";      // There is no print out here. Before it would say which file it is transfering. Nothing now. 
        $ftp->get($file)  
              or warn "Failed to retrieve '$file' ", print $ftp->message() and next;  
        print $ftp->message();  
    }  
}

use Data::Dumper # put this up with the other use statements 
 
# inside the foreach loop 
my @files = $ftp->ls(); 
print Dumper \@files; 
next;

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use Net::FTP; 
use Data::Dumper; 
use POSIX qw/strftime/; 
 
my $Yday = strftime("R%y%m%d", localtime(time - 86400)); 
 
chdir "/home/AMA"; 
my @myDIR =('D010AMAB', 'D010AMA9', 'D000AMA8', 
            'D010AMA5', 'D000AMA6', 'D010AMA7', 'D000AMA4', 
            'D010AMA3', 'D000AMA2', 'D010AMA1', 'D000AMA0' 
); 
 
my $ftp = Net::FTP->new("10.24.1.18", Debug => 0) 
          or die "Failed to connect to FTP server "; 
print $ftp->message(), "\n"; 
 
$ftp->login("GETAMA",'GETAMA') 
      or die "Failed to login to FTP server "; 
print $ftp->message(), "\n"; 
 
foreach my $DIR(@myDIR){ 
    print "\n\nChanging cwd to $DIR \n"; 
    $ftp->cwd("/$DIR") 
          or warn "Failed to cd to /$DIR ", print $ftp->message() and next; 
    print $ftp->message(); 
    my @files = $ftp->ls(); 
    print Dumper \@files; 
    next; 
} 
print "The FTP session has ended!\n"; 
$ftp->quit;