my $tree = HTML::TreeBuilder->new_from_file($file);
my $first = $tree->look_down(href => qr/SESSION_ID/);
my $val = $first->attr('href');
my ($key, $val) = split '=', $val;
warn $val;