BEGIN { $I_AM_COMPILING = 1 }
INIT  { $I_AM_COMPILING = 0 }
sub foo {
    if ( ! $I_AM_COMPILING ) {
    }
}