print "No such package in this suite on this arch" if not exists $contents{$pkg};
my @files = unpack "L/(CC/a)", $contents{$pkg};
my $file = "";
print "No such package in this suite on this arch" if not exists $contents{$pkg};
my @files = unpack "L/(CC/a)", $contents{$pkg};
my $file = "";