#!/usr/bin/perl -w

use CGI qw(:standard);

#  No spaces below around URL=value!!!
#  Posts the message in p() and then goes to cgi30.cgi within 5 seconds.
print header(-refresh => '5; URL=./cgi30.cgi'),
      start_html,
      p("This site has moved.  You will be transferred to the new URL!\n");
      end_html;