Help for this page

Select Code to Download

Select or download this

use File::Basename;
my $baseLoc=($0=~/\//)?dirname($0):
  (grep { -x "$_/$0"} split ":", $ENV{"PATH"})[0];