Sounds like you've learned a valuable lesson there. Adding use strict after finishing your script isn't anywhere as easy as using it right from the start.

As for your actual problem, it's almost impossible to help without seeing any code.

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg

A common problem I've seen when people introduce strict-ness at a late date is when they prepend "my" to a variable at first use, which trims the lifetime of the variable. If there's a later use beyond the first scope, oops. Perhaps you lost a global.

Show us some code.

But the real advice I am going to give is do not parse your POSTS (or anything else CGI) by yourself, use CGI.pm instead, and it *will* work. Other than as an interesting exercise to learn more about the inner workings of the HTTP and CGI protocols, you should never do this on your own. Your own wheel will very unlikely be as round, neat and well pumped as CGI.pm. :)

Could you strip it down to the smallest form that duplicates the problem and post it up here?

()-()
 \"/
  `                                                     

.02

cLive ;-)

my ($buffer,$name,$value,@pairs,$pair);
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
        $name, $value) = split(/=/, $pair);
        $value =~ tr/+/ /;
        value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
        $INPUT{$name} = $value;
        print "\$INPUT{$name} = $value<br>";
}
[download]

First, what you have there is one of the oldest bits of hand-recopied Perl code on the Internet. It's from the original cgi-lib.pl by a nice fella named Steve Brenner. You should use CGI. See use CGI or die; for why.

Next, %ENV is a global variable. Putting it in a my declaration will wipe it clean. Thus there will be no $ENV{'QUERY_STRING'}, no $ENV{'CONTENT_LENGTH'}, thus no $buffer, and thus no output. There's no need to try to localize %ENV; strict knows it's a global and won't yammer.

Update: Never mind %ENV, $buffer is empty. Use CGI instead. :)

stephen

Maybe you stripped more than what you had to to post your code here, but from what I can see,

my ($buffer,$name,$value,@pairs,$pair);
@pairs = split(/&/, $buffer);
[download]

you are acting on an empty $buffer: the my declaration of $buffer 'initializes' it, so when you use split() to get the values from it, you are acting on an 'empty' variable. You might want to move that

my ($buffer);
[download]

a little higher on your script.

Do you get any warnings that tell you you are acting on undefined data? try printing $buffer before and after the split(), because it might tell you the problem is there...

Update: you say you don't even get 'empty' lines printed, which tells me you never run the for() loop... try to print() @pairs before entering the for()

hope this helps,

use strict;
foreach (0 .. 5) {
    my $foo++;
}

print $foo, "\n";     # throws error
[download]

use CGI;

And dump the whole blinking block. You have copied a chunk of code that you exhibit not even the slightest understanding of and that is both bad practice and dangerous.

use CGI;
my ($q,$INPUT);
undef %$q;
$q = new CGI;
$INPUT = $q->Vars;
[download]