use WWW::Mechanize;

my $mech = WWW::Mechanize->new( autocheck => 0 );		
@arraydatad = split(/\//, $arraydata[4]);
$filename = test;
$filecrawl = "http://www.sec.gov/Archives/edgar/data/1000045/0001144204-06-005708.txt";
$mech->get($filecrawl, ':content_file' => $filename);