#!/usr/bin/perl

use strict;
my $now;
my $start_time;
my $LIMIT = 15;

$now = time;
$start_time = $now;
print "Looping...\n";
while (1)
{
	if ($now - $start_time > $LIMIT)
	{
		print "Sleeping...\n";
		sleep $LIMIT;
		print "Looping...\n";
		$now = time;
		$start_time = $now;
	}
	else
	{
		$now = time;
	}
}