sub GetFactor { my ($symbol) = @_; #Expects either ^Xyy where yy = 2 letter code or AAABBB=X #WHERE A and B are Official three letter Country Codes, AAA # being the 'From' money, and BBB #being the 'To' money ex. Us dollar to British Pound would be #USDGBP=X my $src_url = "http://finance.yahoo.com/d/quotes.csv?f=snl1d1t1c1ohgv&e=.csv&s=".$symbol; $ua = new LWP::UserAgent; $ua->proxy(http => 'http://'); $ua->agent('Mozilla/2.0 (compatible; MSIE 3.02; Win32)'); $ua->timeout(30); $req = new HTTP::Request GET => $src_url; $req->proxy_authorization_basic('', ''); $resp = $ua->request($req); if (!$resp->is_success || !$resp) { $errmsg = "Failed to retrieve stock indices --". $resp->Status_line ." $!"; print "$errmsg
\n"; die; } #$resp->Format = ,"",,"","",N/A,N/A,N/A,N/A,N/A return split /,/,$resp->content; }