BEGIN {
  $0 =~ /^(.*)\\([^\\]*)\.pl$/;
  our ($path, $prog) = ($1, $2);
  open(STDERR, ">>$path/$prog.err") or die "invisible error";
  warn "$0 started ". localtime() . $/;
}