Select Code to Download

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

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