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