#!/usr/bin/perl -w

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