#This script grabs the daily stock price files from the public
#section of the Wall Street Journal's website.

use strict;
use LWP::Simple;

print "What is the trading date(MMDDYY)?";
my $indate = <STDIN>;

my $traddt = substr($indate,0,6);

while (my $downloadurl = <DATA>){
	my $x="http://online.wsj.com/public/resources/documents/";
	my $finurl=$x.$downloadurl;
	my @urlsplit=split /\./, $downloadurl;
	my $savefilename = $urlsplit[0].$traddt.".csv";
	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