#!/usr/local/bin/perl
while(1) {
   sleep 5;
}