use CGI;

my $query = CGI->new;  # reads overthing

log( $query );

#....the rest of your program

sub log
    {
    my $q = shift;

    foreach my $param ( $q->param )
        {
        #... however you want to log things
        my @values = $q->param( $param );
        }
    }