BEGIN { 
        $a = "b";
	foo;
}