perl -MFile::Spec::Link -le 'print File::Spec::Link->resolve_all(shift)' foo