my $run = sub { die 'unfinished' };
my $d = Daemonize->new( run => $run );

# later, inside Daemonize
    $self->{run}->( $self );