You're completely right when the path originated not from the actual os.
In that case I'd probably do it a bit primitive like that:

($progname = "c:\\foo\\bar\\basename") =~ s!^.*[\\/]!!;
warn $progname;
[download]