Here is just an example of how to do that.

#!/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 secs.
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;
[download]