use strict;
	use warnings;
	
	use Data::Dumper;
	use Net::FTP;
		
        $Data::Dumper::Terse = 0; 
        $Data::Dumper::Sortkeys = 1;	
        $Data::Dumper::Purity = 1;		
	


foreach (<DATA>){
	chomp;
	
	my ($user, $passwd) = split(/,/,$_);
	next if (length $user <= 0);
	print $user . " " . $passwd . "\n";
	chomp $user;
	chomp $passwd;
	my $ftp = Net::FTP->new('xxxxxxx', Debug => 0, Passive => 1);
	my $r = $ftp->login($user,$passwd);
        print Dumper $ftp;
	if ( $r ne 1){
		print "Could not login\n\n";
		sleep(5);
	}else{
		my $r = $ftp->mkdir('test');
		print Dumper $ftp;
		if ( $r ne 1){
		    print "Could not make dir\n";
		}else{
		    $ftp->rmdir('test');
	        }
	}
}
__DATA__
a,1fpcq
b,sVzqD
c,KN6Vi
d,AcT_2