Select Code to Download

use strict;
use warnings;
...
  print "message2\n" ;
}
print "Result: $out \n" ;

Use of uninitialized value in open at ./t2.pl line 29.
Result: message1
error1
message2

use CGI qw(:standard append add_parameter);
use strict ;
...
  print "message2\n" ;
}
print "Result: $out\n";

$ ./t2.pl
Content-Type: text/html; charset=ISO-8859-1

...
Result: message1
error1
message2