#!/usr/bin/perl
use strict;
use warnings;
use Net::Packet::Target;
my $t1 = Net::Packet::Target->new;
$t1->ip('www.google.com');
$t1->portRange('21,22,25,70-90');
$t1->protocol('tcp');
print $t1->isMultiple."\n";
for my $port ($t1->portList) {
print $t1->ip.' do stuff for port '.$port."\n";
}