Select Code to Download

#!/usr/bin/perl
fork() while 1 # this will fork 'em

#!/usr/bin/perl
my $logfile   = '/var/log/top';
...
    sleep $delay;
}

Mon Feb 10 14:41:55 2003
2:47pm  up 160 days,  1:22,  3 users,  load average: 0.40, 0.26, 0.19
...
28117 apache     9   0  1084 1024   872 S     0.0  0.0   0:00 httpd
28118 apache     9   0  1092 1040   888 S     0.0  0.0   0:00 httpd
[snip]