Select Code to Download

#!/usr/bin/perl

...
$socket->recv( $ret,$maxlen );
main::printdata('Server responded',$ret );
$socket->close();