A simple 'worker' script that write to a log every RAND seconds.

worker.pl

#!/usr/local/bin/perl

my $outputFile = '/home/steve/test.log';

while (1){
    my $sleepTime = int( rand( 120 ) );
    open my $fh, '>>', $outputFile;
    print $fh $$." - ".localtime." sleeping for: ".$sleepTime."\n";
    close $fh;
    sleep( $sleepTime );
}