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