Select Code to Download

 if ($response_community ne $this->{community}
        || ($response_id) != $this->{request_id})) {
    # ...
 }

print "$response_community $this->{community} $response_id $this->{req
+uest_id}\n";
# produces
snmpfoo snmpfoo 2325544852 -1969422444

  if ($response_community ne $this->{community}
        || pack('l',$response_id) ne pack('l',$this->{request_id})) {
    # ...
  }