Select Code to Download

#!/usr/bin/perl -w
use strict;
...
                 Proto    => 'tcp',
             );
# ...

$ ./883113.pl
doing my own stuff in connect()...