#!/usr/bin/perl -w
use strict;
use 'My::Foo';
my $foo = My::Foo->new;
my $demon = My::Demonize->new;
$demon->run(\$foo);