Select Code to Download

#!/usr/local/bin/perl
use IO::Socket;
...
chomp $text;
print "Got this message: >${text}<\n";
close $socket;

#!/usr/local/bin/perl
use IO::Socket;
...
        Proto    => 'udp');

$sock->send($x);