Select Code to Download

sub putHeader {
    my $db_name = shift;
...

    return $header
}

open my $fh, '|-', 'mailx -s "List report" test@mail' or die "ERROR: C
+ouldn't open pipe: $!";
print $fh $generatedMailText or die "ERROR: Couldn't write to pipe: $!
+";
close $fh or die "ERROR: Closing pipe failed: $!";