Select Code to Download

use run_limited;          # I need a better name
my $runner = Runner->new; # got to get the names straight 
$runner->load('true');
$runner->load('sleep 2');
$runner->run("$timeout");

$VAR1 = \bless( {
              'sleep 999' => {
...
                               'stdout' => bless( [], 'Thread::Queue' 
+)
                               }
                 }, 'Runner' );

$stdout=$runner->stdout($command);
$stderr=$runner->stderr($command);
... etc ...

#!/usr/bin/perl
#
...
# the following right bracket closes the package
}
1;

#!/usr/bin/perl
use strict;
...
is ($runner->run("$timeout"), 1, "Check correct number had to be kille
+d");

print Dumper(\$runner);

our $sigpipe=0;
$SIG{PIPE}=sub{$sigpipe++};