#!/usr/bin/perl
$pipestring = "|./home/bevs/bin/email >> /dev/null";
open STDOUT, '>/dev/null' or die "Can't write to /dev/null: $!";
$SIG{PIPE} = 'IGNORE';
open(FH, $pipestring) or die "can't fork: $!";
while(<STDIN>)
{
my $line = $_;
print FH $line or die "can't write: $!";
}
close FH or die "can't close: $!";