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";

    	$js->property_by_path("document.location.href");

    	my $rc = $js->eval(q!
        document.location.href = append("http://", "www.myspace.com");
	document.getElementById = append("ctl00_ctl00_cpMain_cpMain_LoginBox_SMSVerifiedCookieToken");

        SMSTokenValue("Token: ", document.getElementById);

        function append(first, second) {
             return first + ' = ' + second;
        }
    !);

   	$js->destroy();
    }
}