Some Great, some not so great ...

$man =~ tr/man/bug/;

$machine = \"ghost";

if (0) {
    (time() < $^T) && die;
}

require 6;

no strict;
print $$^X;
[download]

Metamorphosis

Ghost in the machine

Never too young to die

Great Expectations ;)

Crime and punishment