--------------------------snip---------------

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


$w = new WWW::Scripter; 
$w->use_plugin('JavaScript');
#$w->use_plugin('Ajax');
$w->agent_alias( 'Windows IE 6' ); 
$w->get("http://www.withjavascriptredirect.com");