Select Code to Download

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

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