#!/usr/bin/perl use CGI qw(:all); #use CGI::Carp qw(warningsToBrowser fatalsToBrowser); use strict; print header; print start_html({-head => meta({ -http_equiv => 'refresh', CONTENT=> '1;url=' . param('URL') }), -title => "This page has moved!" }); print end_html; #### Content-Type: text/html; charset=ISO-8859-1 This page has moved!