my $debug = $ENV{DEBUG} || 0;
+my $today = strftime("%Y-%m-%dT%H:%M:%S", localtime(time()));
+warn "# today $today";
+
+open(my $err_fh, '>', "out.$today.log");
+local $SIG{__WARN__} = sub {
+ print STDERR @_;
+ print $err_fh @_;
+};
+
+
sub col2nr {
my @c = @_;
my $i = 0;
}
}
-my $today = strftime("%Y-%m-%dT%H:%M:%S ", localtime(time()));
-warn "# today $today";
-open(my $skipped_input, '>',"skip.$today");
+open(my $skipped_input, '>',"out.$today.skip");
open(my $out_fh, '>', "out.$today");
my @out_header;