BEGIN {
  open STDERR,">",'C:/perl-errors.txt' or die "Can't redirect errors: $!";
}