It's quite simple:
#!/usr/bin/perl -w
use strict;
use PHP::Session;
use CGI::Lite;
use Data::Dumper;
my $session_name = 'PHPSESSID'; # change this if needed
print "Content-type: text/plain\n\n";
my $cgi = new CGI::Lite;
my $cookies = $cgi->parse_cookies;
if ($cookies->{$session_name}) {
my $session = PHP::Session->new($cookies->{$session_name});
# now, try to dump _s_pod variable from session
print "_s_pod:",Dumper($session->get('_s_pod'));
} else {
print "can't find session cookie $session_name";
}
Disclamer: I'm still not using PHP::Session in production, but this seem to work good enough for me.
Hum, should this example should go into module documentation?
