Select Code to Download

#! /usr/local/bin/perl
package Product::Driver;
...
}

1;

#! /usr/local/bin/perl
package ScriptRunner;
...
}

1;

#! /usr/local/bin/perl

...
    print "Running script file: $f\n";
    $runner->do_script($f)
}

my $string = '';
$string .= add_one(); $string .= " ";
...
$string .= value();
check_success ( $string eq "1 51 50 5 5", "This is a comment" );
return ( $string );