use strict;
use warnings;

if ($#ARGV <= 0) {
  print <<END;
Usage: rep N COMMAND ARGUMENT...
Repeat command N times
END
  exit 1;
}

for (my $times = shift; $times > 0; $times--) {
  system @ARGV;
}