#!/usr/bin/perl

while(1){
sleep 1
}
