#!/usr/bin/perl
                                                                                
use CGI;
use strict;
use warnings;

# note you want everything after the ?
my $querystring='loginid=102138&month=04&year=2003&student_id=&user_type=TUTOR&CalendarName=102138Academic&framename=top.index_main&session_number=618280744437303';
                                                                                
my $q = CGI->new($querystring);
                                                                                
foreach my $p ( $q->param() ) {
        print "Parameter $p : " . $q->param($p) . "\n";
}