use strict;
use LWP::Simple;
while (my $downloadurl = <DATA>){
	my $x="http://online.wsj.com/public/resources/documents/";
	my $finurl=$x.$downloadurl;
	my @urlsplit=split /\./, $downloadurl;
 	my $now_string = substr(localtime,0,11);
	my $savefilename = $urlsplit[0].$now_string;
	print $savefilename;
	print "\n";
	my $status = getstore($finurl,$savefilename);
	print $status."\n" if is_success($status);			}
	

__END__;
NYSE.csv
Nasdaq.csv
SCAP.csv
AMEX.csv