Yaah that is true, it is my friends home work to say it truly and responsibly

Yaah, something along the lines of:

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