StartToMesure perl code StopToMesure print "ExecutionTIme"