$url = "http://ichart.finance.yahoo.com/table.csv?s=" . $stock_symbol . "&d=11&e=27&f=2005&g=d&a=2&b=26&c=2002&ignore=.csv";
$ua=LWP::UserAgent->new;
$ua->agent("MyApp/0.1 ");
my $req = HTTP::Request->new(GET => $url);
# Pass request to the user agent and get a response back
my $res = $ua->request($req);
# Check the outcome of the response
if ($res->is_success) {
print CSVFILE $res->content;
}
Thanks,
Aerpam