Not all great literature, just a few fun ones that popped into my head while scanning my shelves:

# fiction:

    eval {die "22\n"};
    $@ == 22? print "Gotcha":die $@;

    #!/usr/bin/perl
    # ... rest of code

    @years = (undef) x 100;

    use Acme::Bleach;
    
    use Tie::Cycle;
    tie my $foucault, 'Tie::Cycle', [-1,1];

# non-fiction:

    use Devel::Peek;
    # ...
    print Dump($gray);

    $cosmic->();

    use Carp;
    sub species {confess()}

    $delta = (localtime)[2]-(gmtime)[2];
    print abs($delta * 15), $delta>0?'E':'W';

    $prehistory =~ /$patterns/
    
[download]

spoilers:

# fiction:

  Catch 22 (Joseph Heller)

  The Unconsoled  (Kazuo Ishiguro) 
      [no '-w' no 'use strict' == no sympathy]

  One hundred years of solitude (Gabrial Garcia Marquez)

  Out of Sight (Elmore Leonard)  

  Foucault's Pendulum (Umberto Ecco);

# non-fiction:

  Gray's Anatomy  (Henry Gray)

  The Cosmic Code (Heinz Pagels)

  Origin of Species (Charles Darwin)

  Longitude (Dava Sobel) 
      [it's the general idea, not the accuracy that matters]

  Patterns in Prehistory (Robert Wenke)

[download]

:-)