# 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/