Shell Programming and Scripting

use strict;
use Net::FTP;
use Date::Manip;

while (my $file = readdir(DIR)) 
 {
         # Use a regular expression to ignore files beginning with a period
         next if ($file =~ m/^\./);
         #FTP 
         ftpfile($file);
          if($ftp_status==0) 
         {
             print "FTP not successful.\n";
         }
         else 
         {
            print  "FTP successful.\n";
         }

    
}
sub ftpfile {
$file = @_;
    my $ftp = Net::FTP->new($config->getconf('FtpHost')) or die "Can't connect to FTP host: $@\n";
    $ftp->login($config->getconf('FtpUser'), $config->getconf('FtpPassword')) or die "Can't login to FTP Server\n";
    $ftp->cwd($config->getconf('PutDir')) or die "Can't change directory\n";
    $ftp->put($file) or die "Can't put $_ \n"; 
    $ftp_status=1;
    }