#!/usr/bin/perl -w
use Socket;
$str = @ARGV;
if ($str != "2")
{
print "usage: inet.pl adress port\\n";
}
$host=$ARGV[0];
$port=$ARGV[1];
socket($server, PF_INET, SOCK_STREAM, getprotobyname(\'tcp\'));
$inet_addr = inet_aton($host);
$paddr = sockaddr_in($port, $inet_addr);
connect($server,$paddr) || die "Error while connecting:$!\\n";
select((select($server), $| = 1)[0]);
print "Connection established, maybe\\n";
while (1)
{
print "Enter a command:\\n";
$cmd = ;
chomp $cmd;
print $server "$cmd\\n";
recv($server,$text,500,0);
print $text;
}
close ($server);