use Modern::Perl;
use Try::Tiny;
use Encode qw( encode is_utf8 );
use Encode qw( encode decode is_utf8 );
use DBIx::RunSQL;
use YAML::XS;
use C4::Context;
};
close $outfh;
$out = decode('UTF-8', $out);
my $db_entry = {
bug_number => $db_rev->{bug_number},
-