Select Code to Download

use strict;
use Cwd 'abs_path';
...
print "$realpathfor\n";

pwd -P

#!perl
...
my $newdirnow = getcwd();
print "Cwd now thinks I am in $newdirnow\n";