*main::BEGIN = sub { print "X\n" };
&BEGIN;