use CGI::WML;
    my $q = new CGI::WML;
    #param call no working
    #my username=$q->param(username);
     
   #use query string instead 
   my $qStr = $ENV{'QUERY_STRING'};