#!/usr/bin/perl
#!/comptel/ccacp/elink/common/6.3/perl/bin/perl
print "Content-type: text/plain", "\n\n";
$query_string=$ENV{'QUERY_STRING'};
@Input = split(/&/, $query_string);

foreach $i (@Input)
    {
            ($parameter, $value) = split(/=/, $i);
             $FORM{$parameter} = $value;
             $a=$parameter.":".$FORM{$parameter}."\n";
     }

     $STARTDATE=$FORM{date1};
     $ENDDATE=$FORM{date2};

     print $STARTDATE."\n";
     print $ENDDATE."\n";