# ganz oben bei anderen use's
use FindBin ();

#... weiterer Code

# in der sub
sub loadDictionary {

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