Select Code to Download

open (OLDTIME, "time.txt");
$time = <OLDTIME>;
...
open (TIME, ">time.txt");
print TIME "$nowtime";
close(TIME);

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