Select Code to Download

#!c:\perl\bin

use DBI;
...
$dbh->disconnect;

exit;

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