sub main::BEGIN { print "X\n" }