#!/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(),
   './home/bevs/bin/email'
);

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

waitpid($pid, 0)
   or die;