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