$query =  `netstat -ntu | awk '{print \$4}' | sort -nr`;
open my $FH, '<', \$query;
while (<$FH>) {
    ...
}