TCP/IP Programming (server - 3)

print "Hello there, $name, it's now ", scalar localtime, "\n";

exec '/usr/games/fortune'

or confess "can't exec fortune: $!";

};

}

sub spawn {

my $coderef = shift;

unless (@_ == 0 && $coderef && ref($coderef) eq 'CODE') {

confess "usage: spawn CODEREF";

}

my $pid;

if (!defined($pid = fork)) {

logmsg "cannot fork: $!";

return;

} elsif ($pid) {

logmsg "begat $pid";

return; # I'm the parent

}