#!/usr/bin/perl


use strict;
#use warnings;
#require strict;

sub BEGIN {
        #while(calldepth < 5)
        {
        }

        #$strict_error_here =1;
};

sub foo {
        #while(calldepth < 5)
        {

        }
}

#while(calldepth < 5)
{

}