in reply to Re^3: How could you make a script think it's running in its own directory?
in thread How could you make a script think it's running in its own directory?

Just Try It ... 

use File::Basename qw/ fileparse /;

print
  join "\n"
    , __FILE__
    , ( fileparse __FILE__ )[1]
    ;

[download]
  • Comment on Re^4: How could you make a script think it's running in its own directory?
  • Download Code

In Section Seekers of Perl Wisdom