Select Code to Download

open (DBASE,"$hrdata/$qfile");
@ODB=<DBASE>;
...
 }
}
close (DATABASE);

perl -e '$cat = "cat"; if ($cat =~ /\143\x61\x74/) { print "Its a cat!
+\n"; } else { print "Thats a dog\n"; } print "\n";'