use warnings;
use strict;

use LWP::UserAgent;
use HTML::Parser;
use JavaScript::SpiderMonkey;
use Data::Dumper;

my $base = 'http://www.myspace.com';

my $js = JavaScript::SpiderMonkey->new();

$js->init();

$js->function_set("SMSTokenValue", sub { print "@_\n"; });

$js->property_by_path("document.getElementById");

{
    my $ua = new LWP::UserAgent();
    my $req = new HTTP::Request ('GET', $base);

    my $res = $ua->request($req);
    if (!($res->is_success)){
        warn "Warning:".$res->message."\n";
    }
    else {
	print "Successful\n";

    	my $rc = $js->eval("document.getElementById('ctl00_ctl00_cpMain_cpMain_LoginBox_SMSVerifiedCookieToken');");

    	print Dumper($rc);

   	$js->destroy();
    }
}