use DBI;
use CGI;
use HTML::Template;
use strict;


my ($usr,$pwd,$final,@par,$query_str,$Template,$q);

$query_str = $ENV{QUERY_STRING};
if ($query_str='')
{
$query_str = $ARGV[0];
}
@par = split (/['&','=']/,$query_str);
$usr = $par[1];
$pwd = $par[3];



$Template = HTML::Template->new(filename => "user_login.html");
$Template->param(USER=>$usr);
$Template->param(PASSWD=>$pwd);
$final = $Template->output();
$q=CGI->new();
print $q->header();
print $q->start_html('user input');
print $q->h1($final);
print $q->end_html();