use Cwd qw(abs_path getcwd);

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