#! c:\perl\bin\perl.exe
$| = 1;
use strict;
my ($message,$date,$week,$file);
$date = "04/28";
$week = "4";
$message  = "\n****** Player Update ******\n";
$message .= `perl z:\\scripts\\baseball\\players.pl`;
$message .= "\n****** Stat Download ******\n";
$message .= `perl z:\\scripts\\baseball\\stats1.pl $date`;
$message .= "\n****** Weekly Stats Update ******\n";
$message .= `perl z:\\scripts\\baseball\\stats2.pl $week`;
$message .= "\n****** Standings Update ******\n";
$message .= `perl z:\\scripts\\baseball\\stats3.pl`;
$file = $date."OUTPUT";
if (-f $file) {
  open(DATA, ">>$file");
} else {
  open(DATA, ">$file");
}
print DATA $file;
close(DATA);
exit;