#!/usr/bin/perl

use Cwd;

for $dir ('real/subdir', '../link/subdir') {
        print "changing to $dir\n";
        chdir $dir;
        where();
}

exit;

sub where {
        print "pwd    : ", `pwd`;
        print "cwd    : ", Cwd::cwd, "\n";
        print "getcwd : ", Cwd::getcwd, "\n";
        print "fastcwd: ", Cwd::fastcwd, "\n";
}