use Cwd;
    print 'Cwd:'.getcwd."\n";

##</code><code>##

chdir($Dir);