Get something that interprets javascript (Mechanize Firefox), or parse the js yourself

my( $url ) = /assign("(.+?)")/;
[download]

parsing can be problematic, so a better idea would to figure out what the js does, and re-implement that in perl.