Help for this page
print header(-Refresh => "5;url=http://someurl//thiscode.pl");
print start_html(-head=>meta({-http_equiv => 'Refresh', -content=> '5; + URL=http://someurl//thiscode.pl'}));