Current directory
#!/usr/bin/perl -w use Win32; $cwd = Win32::GetCwd(); print "Current directory=$cwd\n";