#!/usr/bin/perl -w
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
print header;

print start_html(-head=>meta({-http_equiv => 'Refresh', -content=> 'CONTENT=5; URL=http://someurl//thiscode.pl'}));

print qq{<h1>Refresh damn you.</h1>};
   
print end_html;