Select Code to Download

use warnings;
use strict;
...
run \@command, \$buff, timeout(10) or $exit = 1; 
    
print "exit code = $exit\n";

#!/usr/bin/perl
use warnings;
...
    print "$_\n" for @return;
    return @return;
}

#!/usr/bin/perl
#$Id: Meru-Server.pl,v 1.2 2006/05/03 13:26:33 tfiedler Exp $
...
    print $LOG scalar(localtime), " $$ Uh Oh we hit the Autoloader: no
+ match for $_[0]\n";
    return 1;
}

#!/usr/bin/perl
#$Id: menu.pl,v 1.3 2006/05/03 13:27:47 tfiedler Exp $
...
}

do_menu( \@main_menu );

[Listening on port 62750]
processing "Salted__
...
drwxr-x--- 2 tfiedler tfiedler     4096 May  3 09:28 RCS
-rwxr-x--- 1 tfiedler tfiedler     1775 May  2 13:56 server-test.pl
Use of uninitialized value in numeric eq (==) at ./Menu-Server.pl line
+ 57.

exit = 0
0
...
-rwxr-x--- 1 tfiedler tfiedler     1775 May  2 13:56 server-test.pl

return = success