If you want to be a bit more platform independent then stick a test on $^O to determine what sort of machine your running on.

if($^O eq "MSWin32")
{
    $pwd = `cd`;
}
else
{
    $pwd = `pwd`;
}
[download]

Barn.