#!/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>";

##</code><code>##

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

$|=1;
print $CGI->header(-type => 'application/vnd.ms-excel');  
print "<br>my sid is: $sid<br>";

my $f_name = $session->param('f_name');      #<===   Line 12
print "<br>my f_name is: $f_name<br>";

my $template = HTML::Template->new(filename  	      => "SCRIPT2.tmpl",
                                    associate 	      => $CGI,
                                    loop_context_vars   => 1,
                                    global_vars         => 1,
                                    associate	       => $session
                                    );