Select Code to Download

# setup $server as before
while ($client = $server->accept()) {
...
        close($client);
    }
}

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