Thank you all so much. This community here is so great.

Corion's solution already worked great. But I extended it now by using $FindBin::RealBin and doing the concatenation by using File::Spec->catfile(...).