BEGIN { print "1..1\n"; } use CGI::Ex; BEGIN { print "ok 1\n"; }