#!/usr/bin/perl

use ....;
use ....;
use ....;

while(1){
  sleep(60);
}