perl -le'$x=time;print "WPM:".(scalar(split//,<>)/6)/(time-$x)*60'