D:\tmp>dd.pl
$0 = C:\Perl\bin\dd.pl cwd=D:/tmp

D:\tmp>cd \

D:\>dd.pl
$0 = C:\Perl\bin\dd.pl cwd=D:/