All pastes #567719 Raw Edit

Anonymous

public text v1 · immutable
·published 2007-06-15 03:09 UTC
rendered paste body
on = "uescsd v.proto";


my $sock = new IO::Socket::INET (
#       LocalHost => 'localhost',
        LocalPort => '7022',
        Proto => 'tcp',
        Listen => 1,
        Reuse => 1
        );
die "Could not create socket: $!\n" unless $sock;
while (my $new_sock = $sock->accept) {
        my $thr = threads->new(\&shell, $new_sock);
}