Help for this page
#! /usr/bin/perl use warnings; ... print "$addr => $input\n"; }
use warnings; ... or die "Error at sendding: $!\n"; close SOCKET;