#!/usr/bin/perl

use strict;
use warnings;

use PM;
use Template;
use CGI qw(header param);

my $tt = Template->new;

print header(-charset => 'UTF-8');

my @groups = PM::PmGroup->search(checked_in => 'N');

@groups = sort { lc $a->name cmp lc $b->name } @groups;

$tt->process('missing.tt', { groups => \@groups })
  or die $tt->error;