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

$listfile="upload.lst";

open (FILE,"$listfile") or die "Can't open $listfile: $!";
@arr=<FILE>;

my $i=0;
foreach (@arr){
   ($host[$i],$user[$i],$pass[$i],$rdest[$i],$ldest[$i],$file[$i])=spl
+it(":",$arr[$i]);
    chomp($file[$i]);
        print "$i. Connecting...";

    $ftp = Net::FTP->new($host[$i]) or warn "Can't Connect to $host[$i
+] account $user[$i]\n" and next;
        print "$user[$i] Connected...";    

        $ftp->login("$user[$i]","$pass[$i]")or die "Can't Login to $ho
+st[$i] account $user[$i]\n" and next;
        print "Logging in...";

    
    #$cwd="$rdest[$i]";    
    #$ftp->cwd($cwd) or die "Can't cwd to $host[$i] account $user[$i]\
+n" and next;
        #print "Changing dir to /$rdest[$i]...";

    $remote="$rdest[$i]"."/"."$file[$i]";
    $local="$ldest[$i]"."/"."$file[$i]";


    #$local=$file[$i];
    $pwd=$ftp->pwd();
    print "Current dir $pwd...";
        $ftp->put($local,$remote) or die "Can't Upload to $host[$i] ac
+count $user[$i]\n" and next;
        print "Uploaded file $ldest[$i]/$file[$i]\n";    

        $ftp->quit;
   $i++;
}
[download]