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


in reply to Finding relative path to called script

try: 
use FindBin qw($Bin);

[download]
$Bin is now your script's path.

Enjoy,
Mickey

In Section Seekers of Perl Wisdom