Why not scrape it and find out? Javascript should be between <script> and </script> tags, shouldn't it? That should be fairly easy to do a simple regex for and pull what you're after.

Something like:

use strict;
use LWP::Simple;

my @page = split("\n", get('http://www.myurl.com'));
my $index = 0;
do{$index++} while $page[$index] != /script/; # increment until first 
+script tag
while ($page[$index] != m!/script!){ #print out script lines until clo
+sing script tag
       print "$page[$index]\n";
       $index++;
       }
[download]

But I have to wonder what is preventing you from just looking at the source of the page in a text editor? :)