What do you by "isnt reading the STDIN"? Do you mean code reads from STDIN, but finds nothing there? I've seen people ask that when the form data was already read from STDIN at an earlier point in the program. The data is no longer there to be read.

That might explain it. Then another question would be. I tried this

our (%gform,%pform); gform is the Query Strings
                     pform is the Form Posts

%pform = formBreaker->breakupForms('post');
%gform = formBreaker->breakupForms('get'); 


Now, using the same structure as above, when I get to the &templateName; routine. it doesnt have access to the original "our" decloration in the index.cgi file.
I know it doesnt have access anymore because at that module, Strict is telling me the %pform/%gform requires explicit decleration.
Is there any way to pass the %pform,%gform down the levels without actually manually passing them through?

Is there any way to pass the %pform,%gform down the levels without actually manually passing them through?

Yes and no. For example,

package formBreaker;

sub test {
   print($CallerPackage::var, $/);
}


package CallerPackage;

our $var;
$var = 'success';
formBreaker->test();
[download]

You can, but as you can see, you have to either hardcode the caller's package (bad!) or you have to get the caller's package name using caller and dynamically build the variable name (ugly and bad!). What's wrong with
%pform = formBreaker->breakupForms('post');
or
formBreaker->breakupForms('post', \%pform);
?

A Reply to myself. I just realized that the routine breakupForms isn't returning a thing!
Heres the code

package formBreaker;

use strict;
sub breakupForms {
        my (%pform,%gform);
        my $submittype = @_;
        #Do the Form {Post} first

        read(STDIN, $buffer,$ENV{'CONTENT_LENGTH'});
        my @pairs = split(/&/, $buffer);

        foreach $pair (@pairs) {
                my ($name,$value);
                ($name, $value) = split(/=/, $pair);
                $name =~ tr/+/ /;
                $name =~ s/%(a-fA-F0-9a-fA-F0-9)/pack("C", hex($1))/eg;

                $value =~ tr/+/ /;
                $value =~ s/%(a-fA-F0-9a-fA-F0-9)/pack("C", hex($1))/eg;

                if($pform{$name} ne "") {
                        $pform{$name} = join("\|",$pform{$name},$value);
                }
                else {
                        $pform{$name}=$value;
                }
        }

        #breakup form query strings
        my @pairs = split(/\&/,$ENV{'QUERY_STRING'});
                foreach(@pairs) {
                        my($name,$value);
                        ($name,$value) = split(/\=/,$_);
                        $gform{$name}=$value;
                }

        if($submittype eq "post") {
                return %pform;
        }
        elsif($submittype eq "get") {
                return %gform;
        }
} #end of sub for breakupForms
1;

I suspect that no matter what you want out of a templating system, you can find one pre-built that does it very well already.