cd $(dirname $(which perl))