Select Code to Download

  open(my $fh, '-|', 'nmap', $ip); 

...

  my $data = do { local $/; <$fh> };
  close $fh;