abs_path () {
  perl -MCwd=abs_path -lE 'say abs_path( $_ ) for @ARGV' "$@"
}