print "Name: '$record->{K_NAME}'  Age: $record->{K_AGE}\n";