#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize ;
my $mech = WWW::Mechanize->new();
 
foreach my $line (100982..106146) {
    next if 0.99 > rand ;
    print "Now processing $line \n" ;
    my $get_file = "http://securities.stanford.edu/filings-case.html?id=".$line;
    my $filename = "file_".$line ;
        open OUT, ">$filename" or die $!;
        print "file $filename \n";
        $mech->get($get_file) ;