open my $fh => $file or die "Failed to open $file: $!\n";
open my $mh => "| mailx -s 'Title' email" or die "Failed to open pipe: $!\n";
print $mh $_ while <$fh>;
close $mh or die "Failed to close pipe: $!\n";
close $fh or die "Failed to close $file: $!\n";