File list-requires of Package package-lists-openSUSE-images

#! /usr/bin/perl

while ( <STDIN> ) {
   chomp $_;
   if ( -f $_ ) {
     open(PAT, $_) || die "$_ not found";
     while ( <PAT> ) {
          chomp $_;
          print "$_\n";
     }
   }
}