@DIV
sub urlencode {
	my($str) = @_;
	$str =~ s/(\W)/'%'.unpack("H2", $1)/ego;
	$str =~ tr/ /+/;
	return $str;
} 
@END

@DIV
#!/usr/bin/perl

print "Content-type: text/html\n\n";

use CGI::Session;

my $session = new CGI::Session("driver:File", undef, {Directory=>'/tmp'});
# 有効なセッションIDを取得
print $session->id();
@END