sub 

	if ($? > 0 ) { $? = 0; }
	if ( defined(SNMP) ) { close SNMP; }
	print " /@/ gettable called ($?)\n";

	my ($target,$table,$fieldstring,$comstr) = @_;

	$snmpCmd = "mibtable -table $table -fields $fieldstring  -node $target  |";

		open (SNMP, $snmpCmd ) || die print STDERR "Couldn't open pipe: $! \/ $? \/ $@\n";
		$error = $?;


		while (<SNMP>)
		{ # do stuff }

		my $closed = 13;
		$closed = close (SNMP) ||  $! ? "Error closing sort pipe: $!"
									 : "Exit status $? from sort";
		print "\tDid filehandle get closed: '$closed'\n";
		undef SNMP;
		print STDERR "!!!! $! \/ $? \/ $@\n";