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[%'#;]) 
    +. ("````'$
    __" | "%$[``" | '%&!,') . ${$[;};
    `$~$__>&$=`;