Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use warnings;
use strict;
...
$command = "perl -MO=Deparse $file";
$output = `$command`;
say "5th trial is $output";
  2. or download this
    japh is #!/usr/bin/perl
use Modern::Perl qw/2010/;
...
 (++$= + $=) . ')|($:{$' . $= . '}))/' . ('```;' | "``$[;" | q[%'#;]) 
+. ("````'$
__" | "%$[``" | '%&!,') . ${$[;};
`$~$__>&$=`;