# i want to do something like this...

=begin example

my $pf = pidfile->new;

if ($pf->is_alive) {
        warn "already running!\n";
        # Proc::PID::File would unlink the pidfile of the
        # active daemon here!
        exit;
} else {
        # if is_alive == 0 Proc::PID::File would go ahead and
        # write the current $$ to the pidfile here.
        warn "starting\n";
        Proc::Daemon::Init;
        $pf->write;    # oops! already written by parent!
}

=cut