A couple more:

# this one's a bit contrived...
for($recent..$later) {
   $live .= $interesting * $_;
}

do {
   $dreams =~ s/Terror(?:Death)//
} while $dreams;

# as is this one...
$alien = `touch`;

for (0..5) {
  push@time,scalar(localtime);
  sleep 1;
}
print $_,$/ for @time;

sub human {
  -t $man;
}

while (!$home) {
  if (fork) {
    $home++;
  } else {
    $home--;
  }
}
[download]

(spoilers):

Interesting Times (Terry Pratchett) The Dream Cycle: Dreams of Terror and Death (H.P.Lovecraft) Contact (Carl Sagan) A brief History of Time (Stephen Hawking) Terminal Man (Michael Chrichton) The Odyssey (Homer)

jynx

Update: Restructured some of the code to something remotely worthwhile...