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