$ ~/test.pl 
BEFORE SUB: OK
IN SUB: OK
AFTER SUB: NOT OK