#!/usr/local/bin/perl -w use strict; # Program: use App::Daemon qw( daemonize ); daemonize(); sleep(100);