C:\WINDOWS>type C:\Temp\WhereAmI.pl
#!perl

use strict;
use warnings;

use Cwd;
use English;
use File::Basename;

my $basename = File::Basename::basename($PROGRAM_NAME);
my $abs_path = Cwd::abs_path($PROGRAM_NAME);
my $dirname  = File::Basename::dirname($abs_path);
my $cwd      = Cwd::cwd();

print "\$PROGRAM_NAME:                            $PROGRAM_NAME\n";
print "\$File::Basename::basename(\$PROGRAM_NAME): $basename\n";
print "\$Cwd::abs_path(\$PROGRAM_NAME):            $abs_path\n";
print "\$File::Basename::dirname(\$abs_path):      $dirname\n";
print "\$Cwd::cwd():                              $cwd\n";

exit 0;

C:\WINDOWS>perl \Temp\WhereAmI.pl
$PROGRAM_NAME:                            \Temp\WhereAmI.pl
$File::Basename::basename($PROGRAM_NAME): WhereAmI.pl
$Cwd::abs_path($PROGRAM_NAME):            C:/Temp/WhereAmI.pl
$File::Basename::dirname($abs_path):      C:/Temp
$Cwd::cwd():                              C:/WINDOWS

C:\WINDOWS>