or download this
jbm@Foucault:~/Code/perl
$ debug=1 ./check_palindrome.pl javafan2.pl
...
half2 = {"rekcahlrePrehtonatsuJ"tnirp;RREDTSclose}NIGEBlrep/nib/rsu/!#
flip = #!/usr/bin/perlBEGIN}esolcSTDERR;print"JustanotherPerlhacker"{
javafan2.pl: NOT a palindrome.