Finding a data path:

dirname($name):/tmp/../datadir
dirname(rel2abs($name)):/tmp/../datadir
dirname($0):/usr/local/bin/../datadir
dirname(rel2abs($0)):/usr/local/bin/../datadir
$FindBin::RealBin:/var/tmp/mydir/../datadir