or download this
print Dumper(@status);
$VAR1 = bless( [ bless( { 'address' => '/Common/10.116.38.51', 'port'
+=> '80' }, 'Common::AddressPort' ), bless( { 'address' => '/Common/10
+.116.38.52', 'port' => '80' }, 'Common::AddressPort' ) ], 'Common::Ad
+dressPort[]' ); $VAR2 = bless( [ bless( { 'availability_status' => 'A
+VAILABILITY_STATUS_GREEN', 'status_description' => 'Pool member is av
+ailable', 'enabled_status' => 'ENABLED_STATUS_ENABLED' }, 'LocalLB::O
+bjectStatus' ), bless( { 'availability_status' => 'AVAILABILITY_STATU
+S_GREEN', 'status_description' => 'Pool member is available', 'enable
+d_status' => 'ENABLED_STATUS_ENABLED' }, 'LocalLB::ObjectStatus' ) ],
+ 'LocalLB::ObjectStatus[]' );