#!/usr/bin/perl -w

@INC = [ @INC, './' ];

use Daemonizer;

Daemonizer::init;

while (1) {

   sleep 20

}