Select Code to Download

use strict;
use warnings;
...
sub HandleCompany {
    print $_->text (), "\n";
}

Acme
Wobbler
Tibble