print "Oops, '$fileName' ne '\U$fileName\E' at line $." if $fileName ne uc($fileName);