Help for this page

Select Code to Download


  1. or download this
    use strict;use warnings;close STDERR&&open STDERR,">",\$_;
if($-=(map{++$|,warn$!?$!|=$_:$!=$_,$/}66,55,25,67)?$|:$()
{@_=map{substr($_,++$-,++$|)}split$/;print((($^O=~/win/i)?
           join(undef,@_)^'!/ ?':@_)=>"\!",$/)}
  2. or download this
    use strict;use warnings;
{close STDERR&&open STDERR,'>',\$_}
print,print[split/\0/,uc^'?25HnL ']->[$|]