Select Code to Download

use warnings;
use strict;
...
systemx('perl', '-e', q{print "'$$'\n"} );
my $o = capturex('perl', '-e', q{print "'$$'"} );
print "<$o>\n";