my $mech = WWW::Mechanize->new(agent => 'Windows IE 6');
my $url = "https://www.somesite.com";
$mech->get($url);

print "Value: '", $mech->value('sessionid'), "'\n";

my $sessionid = $mech->value('sessionid');
print "\$sessionid = '$sessionid'\n";