my( $DICTFILE ) = $FindBin::RealBin . $_[0];