my $sock = new IO::Socket::INET( 
    LocalHost => 'localhost', LocalPort => $port,