#!/usr/bin/perl

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../lib";

use Data::Dumper;
use Fedora::Bugzilla;

my $bz = Fedora::Bugzilla->new(
    userid => shift @ARGV,
    passwd => shift @ARGV,
);
    
die "Must pass bug ids/aliases on the command line!\n" unless scalar @ARGV;

$Data::Dumper::Indent = 1;

for my $id (@ARGV) {

    my $bugs = $bz->run_named_query('perl review requests');

    print Dumper $bugs->data;
}