if ($cgi -> url_param('first_launch') ne 'false') { my $requid = $cgi -> url_param('uid'); my $aflag = $cgi -> url_param('aflag'); my $sflag = $cgi -> url_param('sflag'); my $vars = { base_url => $base_url, requid => $uid, aflag => $aflag, sflag => $sflag, }; my $template = 'login.tt'; print $cgi -> header; $tt -> process($template, $vars) || die $tt -> error(); exit; };