#!usr/bin/perl
use modules XYZ
while(1){
DO ABC
}