Select Code to Download

#! /usr/bin/perl
use warnings;
...
while( my $addr = recv( UDPSOCK, $input, 4096, 0 ) ) {
    print "$addr => $input\n";
}

#! /usr/bin/perl
use warnings;
...
    or die "Error at sendding: $!\n";

close SOCKET;