Wie schon gesagt, tut FindBin genau das, was Du brauchst. Das lässt sich auch mit use lib $FindBin::Bin/modules o.ä. gut nutzen, um lokal zum Skript liegende Module einzubinden, die sonst nicht gefunden werden, wenn das Skript aus einem anderen Verzeichnis aus aufgerufen wird.