Select Code to Download

use strict;
use WWW::Mechanize;
...
    print OUT $clean;

        close OUT;

<script language="javascript" type="text/javascript">
<!--
...
// -->
</script>