-head=>$query->meta({-http_equiv=>"refresh",-content=>"3600; URL=http://$ENV{'HTTP_HOST'}$ENV{'SCRIPT_NAME'}?/$ENV{'QUERY_STRING'}"} )