...
my $session = new CGI::Session(undef, undef, {Directory=>'c:\perl\temp\sessions'});
$session->param('UID', $UID);
$session->param('UNME', $UNME);
$session->param('GID', $GID);
print $session->header();
...