$command = "perl z:\\scripts\\baseball\\stats1.pl $date";
print "$command\n";
$message .= `$command`;