#!/usr/local/bin/perl -w
##### file1.cgi
use CGI;
use strict;

my $q = new CGI;
print $q->redirect( -uri => 'file2.cgi' );
exit;
##### cut here #####

#!/usr/local/bin/perl -w
##### file2.cgi
print "foo";
exit;

##</code><code>##

#!/usr/local/bin/perl -w
##### file2.cgi
use CGI;
use strict;

my $cgi = new CGI;
print $cgi->header();
print "foo";
exit;