# setup $server as before
while ($client = $server->accept()) {
    my $pid = fork();
    if ($pid) {
        #parent
        my $hostinfo = gethostbyaddr($client->peeraddr);
        print "[$hostinfo being Handled by child with pid $pid]\n";
    } else {
        #child
        print $client "Welcome to $0.\n";
        system(qw/sleep.pl/);
        close($client);
    }
}

##</code><code>##

$ perl -e 'do() || ! do() ;'
Undefined subroutine &main::try