my $sock = new IO::Socket::INET (
    LocalPort => 88988,
    Proto     => 'tcp',
    Reuse     => 1,
    Listen    => 1,
) or die "poopy: $!";