chipmunk++ for pointing out File::Basename.

mr.dunstan, you'd probably be better off with this:

my ($actualFileName, $filePath) = fileparse ($filename);
[download]