my $dad=I::Have::Got->new('problem');
$dad->inform(who  => 'a friend of mine',
             whom => 'his girlfriend',
             wtf  => 'pregnant');