#!/usr/bin/perl

use strict;
use warnings;

use IPC::Open3 qw( open3 );

open(my $fr_chld, '>', '/dev/null')
   or die;

my $pid = open3(\*STDIN, $fr_chld, $fr_chld, './home/bevs/bin/email');

waitpid($pid, 0)
   or die;