conf.pl line 22: 
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

script.pl line 34:  if ((! $name{'age'}) || ($name{'age'} eq "")) {

script.pl line 52:  my ($query) = $ENV{'QUERY_STRING'};
	if ($query =~ /^login/) { ....bla bla ... }