cdp

#!/bin/sh
#cdp - cd up on dir
cd $(pwd|perl -pe 's/^((?:\/[^\/]+)*\/).*/$1/')