SPUG: How to get pwd (current dir name)?

[Sanford Morton]

How may I get the name of the present working directory within Perl,
similar to the unix `pwd` command?

Also, how may I use the mode field from the stat($filename) function
to test if a file is a directory, similar to -d $filename?

Thanks,
Sandy Morton



 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
     POST TO: spug-list at pm.org       PROBLEMS: owner-spug-list at pm.org
      Subscriptions; Email to majordomo at pm.org:  ACTION  LIST  EMAIL
  Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address
 For daily traffic, use spug-list for LIST ;  for weekly, spug-list-digest
     Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org