Select Code to Download

#!/usr/bin/env perl
use strict;
...
print "ret=$ret\n";
';
eval($testscript) or die "eval failed, $@";