#!/usr/bin/perl

open(PIPE,"mailq | grep 'nobody\@minime' | cut -c 11-26 |") || die("Error: $!");
while(<PIPE>){
   chomp;
   system("exim -Mrm $_");
}