Between blotch and blok

sub rugbyLeague
{
     while (!hooter())
     {
          foreach $tackle (1..5)
          {
                pass() until tackled();
                wait() until opponent_gets_off();
          }
          kick_ball_to_opponents();
     }
}

sub mistake()
{
      score();
}

$SIG('ERROR') = &mistake;
rugbyLeague();