[Exim] Frozen messages question.

Hello everyone,

Today i came arround a problem which i don`t understand quite well.
My queue went full with frozen messages due to configuration error
on one of our mxes. I would like to know if the following script i
wrote can be used from cron to unfreeze messages and to remove
error messages or there is a more better aproach to use
ignore_errmsg_errors_after.

use strict;
my (@frozen, @errors);

while (<STDIN>) {
        chomp;
        if (/([0-9A-Za-z]+)-([0-9A-Za-z]+)-([0-9]{2})/) {
                my $id = $1 . "-" . $2 . "-" . $3;
                if (/(\*{3})\s+frozen\s+(\*{3})/) {
                        if (/\<.*\@.*\>/) {
                                push @frozen, $id;
                        } elsif (/\<\>/) {
                                push @errors, $id;
                        }
                }
        }
}

foreach my $message (@frozen) {
        my @args = ('exim', '-Mt', $message);
        system(@args);
}

foreach my $message (@errors) {
        my @args = ('exim', '-Mrm', $message);
        system(@args);
}

system('exim', '-q') if ($#frozen > 0);

Best regards,
Alexei V. Alexandrov