$fname =~ s!.*/!!;