#!/usr/bin/perl --

use CGI;
BEGIN {
    my $orig = \&CGI::new;
    *CGI::new = sub {
        my $bla = $orig->(@_);
        $bla->param( blah => 1 );
        return $bla;
    }
}

use strict;
use warnings;

use Data::Dumper;
print Dumper( CGI->new );
__END__
$VAR1 = bless( {
                 '.parameters' => [
                                    'blah'
                                  ],
                 'use_tempfile' => 1,
                 '.charset' => 'ISO-8859-1',
                 '.fieldnames' => {},
                 'param' => {
                              'blah' => [
                                          1
                                        ]
                            },
                 'escape' => 1
               }, 'CGI' );