$man =~ tr/man/bug/; $machine = \"ghost"; if (0) { (time() < $^T) && die; } require 6; no strict; print $$^X;