> perl -w use strict; BEGIN { while( calldepth < 5 ) { sleep 1; } print $n; } Global symbol "$n" requires explicit package name at - line 6. BEGIN not safe after errors--compilation aborted at - line 7.