need help

[rocky karhe]

can anybody tell me meaning of following
my $q=CGI->new();
my ($html);
my %ARGS;
foreach ($q->param()) { $ARGS{$_}=$q->param($_);}
$ARGS{'form'} = "" if(defined($ARGS{'form'}) == 0);
$ARGS{'action'} = "" if(defined($ARGS{'action'}) == 0);
$ARGS{'completeurl'} = $q->self_url();
my $modeform = $ARGS{"form"};
my $modeaction = $ARGS{"action"};
$ARGS{'error'}="";
if($modeform eq "")
{
       if ($modeaction eq "Login")
       {
               $html = RMD::LoginProcess($html, %ARGS);
       }
_________________________________________________________________
Strike the perfect match on BharatMatrimony.com. 
http://www.bharatmatrimony.com/cgi-bin/bmclicks1.cgi?74 Join FREE

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>