use CGI qw(:all);
my $cgi = CGI->new;

print $cgi->header;
print $cgi->start_html(
  -head => meta( {
  'http-equiv' => 'refresh',
  'content'    => '5',
  'url'        => 'http://url/file.xls'
}));
print "<h1>HTML Body</h1>";
print $cgi->end_html();