#!/usr/bin/perl
open fi, ">&STDOUT";
use constant X__ATAD__;
print fi 'Just another Perl hacker,';
',rekcah lreP rehtona tsuJ' if tnirp
;__DATA__ X tnatsnoc esu
;"TUODTS&>" ,if nepo
lrep/nib/rsu/!#