#!/usr/bin/perl use warnings; use strict; use CGI; use CGI::Carp qw(fatalsToBrowser); my $cgi = CGI->new; #print $cgi->redirect(-location=>'test1.cgi'); print $cgi->header( -type=> "text/html" ); print < EOF #### Use of uninitialized value $. in concatenation (.) or string at /usr/lib/cgi-bin/test.cgi line 13.