use strict;
use warnings;
use Cwd 'abs_path';
use File::Basename;
my $script_dirname = dirname(abs_path($0));
print "dirname: $script_dirname\n";


##</code><code>##

C:\Data\scripting\misc>path_test.pl
dirname: C:/Data/scripting/misc

C:\Data\scripting\misc>perl path_test.pl
dirname: C:\Data\scripting\misc

C:\Data\scripting\misc>