#!/usr/local/bin/perl -w
use strict;

use Cwd;
use Cwd 'chdir';

chdir '/x/y/z';

print getcwd(),"\n";