#!/usr/bin/perl

use strict;
use warnings;

use IPC::Open3 qw( open3 );
use Symbol qw( gensym );

my $pid = open3(
   '<&STDIN',
   '>&STDOUT',
   my $fr_chld_err = gensym(),
   'email'
);

while (<$fr_chld_err>) {
   next if /Module 'eAccelerator' already loaded/;
   print STDERR $_;
}

waitpid($pid, 0)
   or die;