my $mail-pipe = IO::Pipe.new;
if $mail-pipe.to("mail -s 'subject' $mail-adresse") {
    $mail-pipe.print("Body.");
    $mail-pipe.close;
} # if