D:\>perl test.pl
$0 = test.pl cwd=D:/