#!/usr/bin/perl

use LWP::Simple;
my $filer=$ARGV[0];

my $pager="http://www.sec.gov/cgi-bin/browse-edgar?company=&CIK=&filenum=".$filer."&State=&SIC=&owner=include&action=getcompany";

$content = get($pager)
or die "Couldn't retrieve web page!\n";


$nfile2="outweb_b1.ltx";
open(OUT,"> $nfile2"); print OUT $content; close(OUT);


