BEGIN{ printf "'%s'\n", scalar caller(); $main::a || $main::b }