You might wish to examine the documentation for File::Basename, the answer you seek is contained within :)

... and especially the hidden treasure dirname() thou shalt devote your attention to!

--saintmike