#!/usr/bin/perl

use warnings;
use strict;

#use RPM2;

my $db = RPM2->open_rpm_db();

my $i = $db->find_all_iter();
print "The following packages are installed (aka, ’rpm -qa’):\n";
while (my $pkg = $i->next) {
	print $pkg->as_nvre, "\n";
}
