#!/usr/bin/perl
use strict;
use warnings;

my $now = time;

while (1) {
   $now = time;
   if (($now % 5) == 0) {
      system "date";
      while (($now % 5) == 0) {
         $now = time;
      }
   }
}