perl -MCGI
print CGI::redirect( CGI::url(-base => 1) . "/Y" );