Select Code to Download

#!/usr/bin/perl
use strict;
...
        open OUT, ">$filename" or die $!;
        print "file $filename \n";
        $mech->get($get_file) ;

my $get_file = "http://securities.stanford.edu/filings-case.html?id=$l
+ine";