#!/usr/bin/perl -w

my $interval=5;

LOOP: {
    print STDOUT "test"; #used STDOUT here, just to be sure
    sleep ($interval);
    redo LOOP;
}