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>