for ( my $Count = 0; $Count < 30; $Count++ ) { my ( $Package1, $Filename1, $Line1, $Subroutine1 ) = caller( $Caller + $Count );