Shell Programming and Scripting

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

my $host="Server";
my $directory="pub";

$ftp=Net::FTP->new($host,Timeout=>240) or $newerr=1;
  push @ERRORS, "Can't ftp to $host: $!\n" if $newerr;
  myerr() if $newerr;
print "Connected\n";

$ftp->login("your user","yourpassword") or $newerr=1;
 push @ERRORS, "Can't ftp to $host: $!\n" if $newerr;
  myerr() if $newerr;
$ftp->cwd("Yourftppath") or $newerr=1; 
  push @ERRORS, "Can't cd  $!\n" if $newerr;
  $ftp->quit if $newerr;
  myerr() if $newerr;
  foreach (@file-list) {
   print "Putting $_\n";
    $ftp->put($_,$_) or $newerr=1;
      push @ERRORS, "Couldn't get $stuff[3] $!\n" if $newerr;
   }

   }

   $ftp->quit;
   myerr();



sub myerr {

  # send this stuff to mailo, code not shown
  print "Error: \n";
  print @ERRORS;
  exit 0;
}