print header(-Refresh => "5;url=http://someurl//thiscode.pl");

##</code><code>##

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