Hi, I do not think it is broken perhaps chdir faild. Try this please:

!/usr/local/bin/perl -w
use strict;
use Cwd qw/getcwd chdir/;
chdir '/x/y/z' or die $!;
print getcwd(),"\n";
[download]