use strict;
use WWW::Mechanize;
use LWP::Simple;
use URI;

my $url='edgar/data/1750/0001104659-06-059326-index.html';
my $web='www.sec.gov/Archives/'.$url;

my @temp=split(/\//,$url);
chomp($web);
my $rel_url='/'.$temp[2].'/'.$temp[3];
my $base_url='www.sec.gov/Archives/edgar/data';
my $abs_url=URI->new_abs($rel_url,$base_url);
my $text=get($abs_url) or die $!;