It would be semi-trivial with Path::Tiny. You should read the stat/-X docs to know how to make it a bit more safe and robust.

Show us some code you've tried if you're having trouble getting it to work and someone will be glad to help fix or adapt it.