Select Code to Download

use strict;
use warnings;
...
my @ret = `./runthis.pl`;
print length(@ret);
print $ret[0];

use strict;
use warnings;
print "Hellow World";