From the same module:

my ($basename, $dirname) = fileparse($_);
[download]