#!/usr/bin/perl
#
format MAIL =
Bon de commande:
+---------------------------------------------------------------------------------+
| Nom                  : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< |
$Nom
| Adresse email        : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< |
$Email
| Adresse de livraison : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< |
$Adresse
| Code postal          : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< |
$CP
| Ville                : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< |
$Ville
| Pays                 : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< |
$Pays
+---------------------------------------------------------------------------------+

Référence(s) commandée(s) :
+------------+---------------+----------+----------------+
| Code       | Prix Unitaire | Quantité | Prix Total     |
+------------+---------------+----------+----------------+
.
format MAIL2 =
| @<<<<<<<<< | @<<<<<<<<<<<< | @<<<<<<< | @<<<<<<<<<<<<< | 
$Code $Prix $Qty $PrixTotal
+------------+---------------+----------+----------------+
.
$Nom = "TOMASIAN";
$Email = q'alto@naostech.fr';
$Adresse = "10 Avenue du Québec - BP 116";
$CP = "91944";
$Ville = "COURTABOEUF Cedex";
$Pays = "FRANCE";
open( MAIL, ">toto.txt");
print MAIL << "EOT";
From:nobody
Subject: Bon de commande.
To: $MAIL_TO
EOT
select(MAIL);
write ;
$~ = "MAIL2";
$Code = "AC998888";
$Prix = "34567,70 FF";
$Qty = "123" ;
$PrixTotal = "123455,80 FF";
write ;
write ;
write ;
write ;
write ;
write ;
write ;
close(MAIL);