That will work only if some file is an absolute
path name, which isn't quite what's indicated. To get
the relative paths per the example, you'd need
to append
"../" to the beginning of the file name for each level
deep you are in the directory tree--a bit of a trick using
find, but a snap for perl...