#!/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])=split(":",$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 $host[$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] account $user[$i]\n" and next;
        print "Uploaded file $ldest[$i]/$file[$i]\n";	

        $ftp->quit;
   $i++;
}