#!C:\Perl\bin\perl.exe

use Cwd;
$dir = getcwd;
print "current dir = $dir";