my $ports = $args =~ m/-p\s+([-\d]+)/;