diff --git a/hogs/cpuhogt b/hogs/cpuhogt
new file mode 100755
index 0000000..660ad5f
--- /dev/null
+++ b/hogs/cpuhogt
@@ -0,0 +1,10 @@
+#!/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];
+}