$ perl 11156317.pl

$VAR1 = bless( {
                 'news' => 'bad'
               }, 'Daughter' );
$VAR1 = bless( {
                 'news' => 'good'
               }, 'Son' );
$VAR1 = bless( {
                 'news' => 'bad'
               }, 'Daughter' );