#!/usr/bin/perl print "eating the CPUs\n"; foreach $i (1..16) { $pid = fork(); last if $pid == 0; print "created PID $pid\n"; } while (1) { $x++; }