sub loadDictionary {

 my( $DICTFILE ) = $_[0];

  require FindBin ();
  $DICTFILE = $FindBin::Bin . $DICTFILE;