strict;
use Carp;
use WWW::Mechanize;
use PHP::Session;
use CGI::Lite;
use strict;
 
my $webaddress = 'http://192.168.133.137/simplsmdr/index.html';
my $user_id = 'user';
my $passwd = 'pass';
my $session_name = 'PHPSESSID';

my $mech = WWW::Mechanize->new(
    cookie_jar      => {},
    autocheck       => 0,
    onerror         => \&Carp::croak,
);

# Login Form
my $response = $mech->get($webaddress);
if (!$response->is_success) {
    die "Login page unreachable $webaddress: ",  $response->status_line, "\n";
}
 
# Login
$mech->form_name("login");
$mech->field('username', $user_id);
$mech->field('passwd', $passwd);
my $response = $mech->click();
if ($response->is_success) {
    print $mech-> content();
	} 
else {
    die "Login failed: ",  $response->status_line, "\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 "uid:",Dumper($session->get('uid'));
} else {
   print "can't find session cookie $session_name";
}