open FILE,"< $file" or die $! ;
open MAIL,"| mailx -s 'Title' emailaddresshere" or die $! ;

##</code><code>##

# All-in-one-line while
print MAIL while <FILE> ;

##</code><code>##

open STDERR,"/dev/null" ;
warn "Test" ;
system('echo TesT') ;
system('echo TEST 1>&2') ;