BEGIN {
  use FindBin qw( $BIN );
  use lib qw( $BIN );
}

##</code><code>##

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