http://www.perlmonks.org?node_id=581627


in reply to Search and Copy a filepath

you can use FindBin to find your program's path:
use FindBin qw($Bin);
now you can search for relative paths starting from $Bin (e.g. $Bin/IMAGES).

HTH,
Mickey