# 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--;
  }
}