@samurai = (1) x 7; my $time = 300; while( $time-- ) { warn; sleep; } $#steps = 39; $Muriel->wedding; my $orange = new Clockwork; $man->arm('golden'); $man->gun('golden'); $Kramer cmp $Kramer; #### return if (caller(0))[3] eq 'peyton::place'; $Gilligan->island; &troop('F');