Perl Bulk Ftp Account Checker

File format should be looks like this.

username,password,something
username,password,something

#!/usr/bin/perl

use Net::FTP;

$file = 'pe.csv';

$host='ftp.server.com';

open (F, $file) || die ("Could not open $file!");

while ($line = )
{
($field1,$field2,$field3) = split ',', $line;


my $ftp = Net::FTP->new($host);



my $banner = $ftp->message;
$banner =~ s/\n/ /g;



if ($ftp->login($field1,$field2)) {

print "ftp://$field1:$field2\@$host/\n";
$ftp->quit;


} else {

}

}

close (F);