Select Code to Download

use warnings;
use strict;
...
open my $fh, '|-', @cmd or die $!;
print $fh $mail_body;
close $fh or die $! ? $! : $?;