use Me;

  my $my = new Me;

  foreach ($my->friends) {
      # NOTREACHED
  }

  die if ($my->time());
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Wonderful Web Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.