open MAIL, "|mail jerome\@post.cz" or die "Nelze spustit aplikaci mail";

open SOUBOR, "dopis.txt";

print MAIL "Subject: Zpráva \n\n";
print MAIL $_ while (<SOUBOR>);

close SOUBOR;
close MAIL;