print REFRESH "<SCRIPT><!--\n";
my $oldfh = select(REFRESH);
require "test.cgi";
select $oldfh;
print REFRESH "//--></SCRIPT>";