mod_perl snafu

gistfile1.pl

#!/usr/local/bin/perl  
                                                                                                                        
use CGI qw/:standard/ ;
use strict;

# demonstration how mod_perl may screw up your naive CGI code... Call                                                                                          
# this script passing different name parameter several times.                                                                                                  

my $name = param('name') || "professor";

sub say_hi {
    my $real_name = shift;
    print "Hi there, $name";
    if ($name ne $real_name) {
	print "... or should I call you $real_name?\n";
    } else {
	print "!\n";
    }
}

print header('text/plain');

say_hi($name);