print "Genre    : " .  $data->{genre} . "\n";
print "Details  : " . $data->{detail} . "\n";
print "Distance : " . $data->{dist} . " hops\n";
print "Link     : " . $data->{link} . "\n";
print "Uptime   : " . $data->{uptime} . " hrs\n";

##</code><code>##

Genre    : ARRAY(0x101127d4)
Details  : ARRAY(0x103826d8)
Distance : 0 hops
Link     : ARRAY(0x1016a60c)
Uptime   : 4431 hrs

##</code><code>##

$VAR1 = {'link' => [101,116,104,101,114,110,101,116,47,109,111,100,101,109,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],'magic' => 233811181,'nat' => 0,'score' => -100,'dist' => 0,'genre' => [76,105,110,117,120,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],'fw' => 0,'detail' => [50,46,54,44,32,115,101,108,100,111,109,32,50,46,52,32,40,111,108,100,101,114,44,32,52,41,0,0,0,0,0,0,0,0,0,0,0,0,0,0],'tos' => [104,105,103,104,32,116,104,114,111,117,103,104,112,117,116,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],'uptime' => 4431,'id' => 305419896,'type' => 0,'mflags' => 0,'real' => 1}

##</code><code>##

print "Genre    : " .  @$data->{genre} . "\n";