El código...
Using perl Syntax Highlighting
#!/usr/bin/perl
use IO::Socket::INET;
$host = $ARGV[0];
$puerto = $ARGV[1];
if(!$ARGV[0])
{
&errorMessage;
}
$sock = IO::Socket::INET->new(PeerAddr => $host,
PeerPort => $puerto,
Proto => 'tcp') || die "\nNo se pudo conectar con el servidor......";
sub errorMessage()
{
print "Uso : \n";
print "perl <Script> <host> <Puerto>\n";
}
use IO::Socket::INET;
$host = $ARGV[0];
$puerto = $ARGV[1];
if(!$ARGV[0])
{
&errorMessage;
}
$sock = IO::Socket::INET->new(PeerAddr => $host,
PeerPort => $puerto,
Proto => 'tcp') || die "\nNo se pudo conectar con el servidor......";
sub errorMessage()
{
print "Uso : \n";
print "perl <Script> <host> <Puerto>\n";
}
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
Agradezco su colaboración. La plataforma es Linux en donde estoy practicando