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