#!/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;
      }
   }
}

##</code><code>##

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

my $seconds = 5;

while (1) {

  my $time = localtime();

  print $time, "\n";

  sleep $seconds;

}