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

while (1) {
        sleep 5;
        print "interval";
}