use File::Spec;
warn ((File::Spec->splitpath("c:\\foo\\bar\\basename"))[-1]);

##</code><code>##

use File::Spec::Win32;
warn ((File::Spec::Win32->splitpath("c:\\foo\\bar\\basename"))[-1]);