Perl - P°φklad 11 10. prosince 1998 xskrivan@fi.muni.cz |
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; |
[Zp∞t] | [Zm∞na k≤dovßnφ] | [Domovskß strßnka] | á[StromeΦek] |