ITEM :sh= perl -MCwd -e "$$cwd = cwd();$$cwd =~ /.*[\\\/](.*)/;$$1"