while(<LIST>) {
    chomp;
    my @output = $w->network($_);
    foreach my $net(@output) {
        printf( "CIDR: %s\tNetName: %s\tNetHandle: %s\n",
            $net->CIDR, $net->NetName, $net->NetHandle,
        );
    }
}