although, you could write a little trap for OS.... I don't use win32, so I don't know the value of $^O on win32, but you could do something like this:

if ($^O =~ /linux/) {
    $working_directory = `pwd`;
} elsif ($^O =~ /win32/) { # or value for win32
    $working_directory = `cd`;
} else {
    $working_directory = "./"; # :)
}
[download]