This is my intention.
I need to open 1 to many files and write to one.
Any help would be appreciated.
if (@ARGV != 1)
print "\n\tUsage: $0 file\n\n";
my ($file) = @ARGV or
die "Can't open file: error $!\n";
open (LOG, $file);
open (RESULT, ">today.logsummary");