Select Code to Download

#!/usr/bin/perl -w
use strict;
use IO::Socket::INET;
...
        }
}
warn "fell out of loop - $!";

bind(3, {sa_family=AF_INET, sin_port=htons(4848), sin_addr=inet_addr("
+0.0.0.0")}, 16) = 0
listen(3, 1)                            = 0
accept(3, {sa_family=AF_INET, sin_port=htons(23694), sin_addr=inet_add
+r("127.0.0.1")}, [16]) = 4
...
write(2, "fell out of loop - Interrupted sy"..., 65) = 65
close(3)                                = 0
exit_group(0)                           = ?