#! /user/bin/perl -I .
BEGIN {
  use FindBin qw( $BIN );
  chdir $BIN;
}