I would look at the Cwd module if I were you. It works great in Unix (not sure about Windows, but certainly worth a try.)

It works under win32 as well; just be aware that the directory name returned is formatted using slashes instead of backslashes (ie. perl style rather than windows style). E.g. c:/sw/perl

How to get the current working directory

This got me thinking about how to do the corresponding thing on Unix (find the hardware device). The following succeeds on my (Linux) machine, but may have problems with trailing slashes on the directories returned by 'mount'.

#!/usr/bin/perl

use strict;
use warnings;

my $mountlist = `mount`;

my %mounts;
$mounts{$2} = $1 while($mountlist =~ /(.*) on (.*) type.*\n/g);

my $location = `pwd`;
chomp $location;

my $mount_dir = $location;

$mount_dir =~ s#/[^/]*$## while $mount_dir && !$mounts{$mount_dir};

$mount_dir ||= '/'; # Add the 'trailing' slash back in if we're mounte
+d as root

print "Directory $location is on device $mounts{$mount_dir}\n";
[download]