my $sock = new IO::Socket::INET (
         LocalPort => '1401',
         Proto => 'tcp',
         Listen => 1,
         Reuse => 1,
         Timeout => .1,
);