use Cwd;
my $cwd = getcwd;
print "\$0 = $0 cwd=$cwd\n";