Select Code to Download

while (($Timeout eq "false") && accept(Client, Server))
    {
...
    }
    Messages::PrintToLog("Closing Server.\n");
    close Server;

sub MainCall
{
...

#some more function calls
}