$debut = time() ;
  $ligcmd = join(" ",@ARGV) ;
  print " Exécution de : $ligcmd... \n" ;
  system($ligcmd) ;
  $fin   = time() ;
  $temps = $fin - $debut ;

  $min = int($temps / 60.0) ;
  $sec = $temps - 60* $min ;
  if ($temps>60) { print " Durée : $temps seconde(s) soit $min min $sec sec \n" ; }
          else   { print " Durée : $temps seconde(s).\n" ; }