#!/usr/local/bin/perl -w

use strict;
use NBUX;

my $record;
my %images = bpimagelist('$record->{client}');

foreach my $key (sort keys %images) {
prtID($images{$key});
}

sub prtID {
my $ref = shift;
print "client = $ref->{client}\n";
print "\tid= $ref->{id}\n";
}