$| = 1;

my $LIFE = int(rand() * 120);
my $saved = 1;

for (my $i = 1; $i <= $LIFE; $i++)
{
  # do something good...
  print "Happy birthday, Today you're $i yrs old!\n";
  if ($i > 10)
  {
    $saved = int(rand() * 2);
  }
}
DIE();


sub DIE
{
  goto HELL unless ($saved);
  return $saved;

HELL:
  my $e = '';
  for (;;)
  {
    for (;;)
    {
      for (;;)
      {
        for (;;)
        {
          $e .= 'B';
        }
      }
    }
  }
}