first draft of implementaion of pwd in Perl

Current version works only if the current directory is on the root
filesystem.