my $server = IO::Socket::INET->new(LocalPort => 666, 
    Type=> SOCK_STREAM, 
    Listen => 0, 
    Proto => "tcp");
die "Can't open socket" if (!$server);

[...the main loop...]

close($server);
log_msg("Connection lost.\n");