#!/usr/bin/perl
#c0dex by m0x.lk || Fucker Team ||
#TelPerl || Conector Telnet en Perl
system ("clear");
system ("cls");
system ("color f0");
print "\n\n";
print "\t\tc0dex by m0x.lk\t||  Fucker Team  ||";
print "\n\n";
print "\t\tTelPerl | Conector Telnet en Perl\n\n";
sleep 1;

use Net::Telnet ();
$host=$ARGV[0];
$user=$ARGV[1];
$pass=$ARGV[2] || die "[+]Usage: TelPerl.pl Host User Pass\n[+]Example: TelPerl.pl 127.0.0.1 admin 123123\n";
        $t = new Net::Telnet (Host => $host);
        eval { $t->login($user, $pass); };
	if ($@) {
	
print "\n[+]Logeado";
sleep 1;

	}
	else {
		print "Login FAILDER!";
	}
	
comand:;
print "Comando Linea: ";
$comand=<STDIN>;
$t->cmd("$comand");
goto comand;