#!/usr/local/bin/perl5_8
use strict;
use HTML::Template;
use CGI::Session;
use CGI ':standard';
my $CGI = CGI->new;

&call_vars;     #this calls via EXPORT all my variables like $sid
$|=1;
print $CGI->header;

my $session = new CGI::Session("driver:File", undef, {Directory=>'/tmp'});
$sid = $session->id();

$session->param('f_name', 'Sherzod');	 #test variable

#stuff that sets up template, generates @loop_data for template, etc. snipped out
$template->param(passdata => \@loop_data,);
print $template->output();

print "<br>my sid is: $sid<br>";
print "<br>my f_name is: $session<br>";