open my $stream, "| mail -s '123' email\@at.com" or die "pipe fail: $!"; print $stream $text; # Or @lines, or $line1, $line2... close $stream; # Handle needs to close or go out of scope to clear buffer and send EOF