こういうのはダメか?

# perl -MCwd -e 'print Cwd::realpath shift' $path_to_file