#!/usr/bin/perl

use strict;
use warnings;

use CGI;

my $q = CGI->new;
my $delay_seconds = 4;
my $url = 'http://somewhere.com/';
print $q->header( -type => 'text/html', 
                  -refresh => "$delay_seconds; $url",
                );

print "<h1>Here's some HTML.</h1>";