sub generate_income{
    my $v = new MicrosoftVirus;
    $v->propagate;
    $v->sell_anti-v_software;
    $v->sell_upgrades;
    $v->count_money;
}

sub keep_suckers_dependent{
   my $plan = new MSpropaganda;
   $plan->give_away_to_schools;
   $plan->dorky_tv_commercials;
   $plan->count_money;
}
[download]