#!/usr/bin/perl
use WWW::Scripter;
use URI;

        $w = new WWW::Scripter;
        $w->use_plugin('JavaScript');
        $response=$w->get("sdt1.corp.xyz.com:8080/click/phoenix/339cd9314fe0136d3c30f6e9984b1ddc?clickId=sfshsksk1234go");
        
       $data_ref = $response->content_ref( );

        #this response is a html code with a js link enbedded
        my $h = $$data_ref;


        my $u = new URI 'data:';
        $u->media_type('text/html');
        $u->data( $h );
        $w->get($u);