print "body", br(), a( { href => "$ENV{SCRIPT_NAME}" }, "Next" ), br();
1;