Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
print "Just Another Perl Hacker!\n";
  2. or download this
    #!/usr/bin/perl
print "Just Another Perl Hacker!\n";
  3. or download this
    #!/usr/bin/perl -w
use strict;my $japh=q/tsuJ rehtonA lreP !rekcaH/;
my @j = reverse split /\s+/, reverse $japh;
for (0..3){print $j[$_], " ";}