alias list="ls -lFhG --color" readlink() { if [[ "$1" == "-f" ]]; then perl -MCwd -e 'print Cwd::abs_path shift' "$2" else "$(which readlink)" "$@" fi }