#!/bin/sh
exec ./home/bevs/bin/email >/dev/null 2>&1

##</code><code>##

#!/usr/bin/perl
exec './home/bevs/bin/email >/dev/null 2>&1';
die;

##</code><code>##

#!/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;