my $sid = cookie('main') || undef;
my @sessionInfo;
my $session = new CGI::Session(undef, $sid, {Directory=>'c:/apache/sessions'});
if ( $session->is_new() ) {
	$session->delete();
} else {
# get values from session
}

##</code><code>##

&test;

sub test {
	my $sid = cookie('main') || undef;
	my @sessionInfo;
	my $session = new CGI::Session(undef, $sid, {Directory=>'c:/apache/sessions'});
	if ( $session->is_new() ) {
		$session->delete();
	}
}

##</code><code>##

"Content-Type: text/html; charset=ISO-8859-1 (in cleanup) could not flush: Couldn't unlink C:\apache\sessions\cgisess_16a6fc56d547a55cb4ec05c183c5c10b: No such file or directory at /apache/htdocs/test.cgi line 58.<br>