use Cwd qw( getcwd );

sub my_getcwd {
use Cwd qw( );

sub getcwd {
   my $cwd = Cwd::getcwd();
   if (exists($ENV{PWD}) && $ENV{PWD} ne $cwd) {
      my $e = my ($e_dev, $e_node) = stat($ENV{PWD});
      my $c = my ($c_dev, $c_node) = stat($cwd);
      if ($e && $c && $e_dev == $c_dev && $e_node == $c_node) {
         $cwd = $ENV{PWD};
      }
   }

   return $cwd;
}

print Cwd::getcwd(), "\n";
print getcwd(), "\n";

##</code><code>##

/tmp/ikegami
/home/ikegami/tmp