use Cwd qw(abs_path getcwd);

if (abs_path('/home') eq getcwd) {
  print "Correct directory\n";
  # do whatever needs to be done
}
[download]

Of course, substitute your symlinked path for /home in the above

If there are symlinks and you followed them, I think that you cannot know how you reached a file; You can test yourself:

mkdir -p real/subdir
ln -s real link
[download]

#!/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";
}
[download]

This is true for Linux, I don't know for other file systems. Software like Midnight Commander or Bash shell keep track of the followed path to solve this problem.

Ciao, Valerio