#!/usr/bin/perl
#__ATAD__
print 'Just another Perl hacker,'#;
#',rekcah lreP rehtona tsuJ' tnirp
__DATA__#
lrep/nib/rsu/!#

##</code><code>##

#!/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/!#