simple/hogs/cpuhogt

11 lines
149 B
Plaintext
Raw Permalink Normal View History

2016-07-05 21:55:43 +02:00
#!/usr/bin/perl
use v5.20;
use warnings;
use Time::HiRes qw(time);
my $t0 = time;
for (;;) {
my $dt = time - $t0;
last if $dt > $ARGV[0];
}