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