#! /usr/bin/perl -wT
use strict;	
use CGI qw(:standard escape escapeHTML); 
use CGI::Carp qw(warningsToBrowser fatalsToBrowser); #all diagnostic to browser
#print header (),      # generate Content-Type header
#start_html (-title => "Test redirect");
my $q = CGI->new;
print $q->header( -type => 'text/html', 
                  -location => 'http://www.gmacfadden.com/cgi-bin/WorkControl/Home/download_file_from_file.cgi');

print "<h1>Here's some HTML.</h1>";
#print end_html ();   # generate closing HTML tags
exit (0);