my  ( $path ) = cwd =~ /(.*)/;