#!/usr/bin/perl -w

while(1){
   #..do something
   sleep(10);
}