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