#!/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;