use FindBin;
print "Das Programmverzeichnis ist: $FindBin::Bin";