time perl -MUnicode::UCD=charinfo -le 'for ("128768".."128895"){ $c=charinfo($_); print "$_ ".$c->{name} }

real.   0m0.230s
user.   0m0.207s
sys.    0m0.017s