#!/opt/openv/perl/bin/perl -w

use strict;
use Data::Dumper;
use bpimagelist;

my %images = sls_bpimagelist();
#print Dumper(\%images);

foreach my $img ( sort keys %images ) {
foreach ( @{$images{$img}} ) {
print "key = $img";
foreach ( @{$images{$img}{'media_id'}} ) {
print "ID = $_\n";
   }
  }
 }