($bname = $fname) =~ s#.*\\##s;