use v5.12;
use warnings;
use Cwd qw(abs_path);

say 'abs_path($0): ', abs_path($0);

##</code><code>##

PS D:\transfer_D\d_temp> perl .\temp\tst.pl
abs_path($0): D:/transfer_D/d_temp/temp/tst.pl
PS D:\transfer_D\d_temp>