$name = uc File::Basename::basename ($name);