you can use FindBin to find your program's path:

use FindBin qw($Bin);
[download]

now you can search for relative paths starting from $Bin (e.g. $Bin/IMAGES).

HTH,
Mickey