Select Code to Download

use strict;
use warnings;
...
$netstat_obj->GetExitCode($netstat_exit);

print Data::Dumper->new(['3', $netstat_obj, $NETSTAT_FH, $netstat_data
+], ['where__________', 'netstat_obj', 'NETSTAT_FH', 'netstat_data'])-
+>Indent(1)->Sortkeys(1)->Useqq(1)->Deparse(1)->Dump();

C:\temp>perl.exe sandbox.pl
$where__________ = 1;
...
$NETSTAT_FH = bless( do{\(my $o = 1777552)}, 'Win32::Process' );
Your vendor has not defined Win32::Process macro sysread, used at sand
+box.pl line 32. (Error was: 'Invalid argument')
at C:/xampp/perl/site/lib/Win32/Process.pm line 53.