#! /usr/bin/perl
-require bugcfg;
-require scanlib;
+use warnings;
use strict;
-# use warnings;
+
+use File::Basename;
+use lib dirname(__FILE__);
+use bugcfg;
+use scanlib;
# Main part
scanlib::readmaintainers();
scanlib::scanspool();
+binmode(STDOUT,':encoding(UTF-8)');
+
for my $p (keys %scanlib::packagelist) {
my $section;
my $package = $p;