Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    $sock->read(my $data, $len);
    return $data;
}

$ ./892650.pl 
server listening...
...
data: 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
connection closed
server shut down