- copy below code to client.pl and server.pl respectively
- start the server in the background: 
-- perl server.pl bg
- run the client (different cmd window):
-- perl client.pl

##</code><code>##

use warnings;
use strict;

use IO::Socket::INET;
use Storable;

my $mod = 'IO::Socket::INET';

my $sock = new IO::Socket::INET (
    PeerHost => 'localhost',
    PeerPort => 7800,
    Proto => 'tcp',
);
die "can't create socket\n" unless $sock;

$sock->send("cpanm $mod");

my $recv = Storable::fd_retrieve($sock);

print $$recv;

##</code><code>##

use warnings;
use strict;

use IO::Socket::INET;
use Storable;

if (@ARGV && $ARGV[0] eq 'bg'){
    system 1, 'perl', $0, 'run';
}
if (@ARGV && $ARGV[0] eq 'run') {
    my $sock = new IO::Socket::INET (
        LocalHost => '0.0.0.0',
        LocalPort => 7800,
        Proto => 'tcp',
        Listen => 5,
        Reuse => 1,
    );
    die "cannot create socket $!\n" unless $sock;

    while (1){
        my $conn = $sock->accept;

        my $cmd;
        $conn->recv($cmd, 1024);

        print "executing: $cmd\n";
        my $ret = `$cmd`;
        print "return: $ret\n";
        Storable::nstore_fd(\$ret, $conn);

        shutdown($conn, 1);
    }

    $sock->close;
}