#! /usr/bin/perl -w

use strict;
use File::Basename;


BEGIN {
   our ($prog, $path) = fileparse $0, '.pl';
   open STDERR, ">>$path/$prog.err" or die "invisible error";
   warn "$0 started ". localtime() . $/;
}