file to join

From: Deny (deny_at_monaco.net)
Date: 04/29/04 

Date: Thu, 29 Apr 2004 20:54:21 +0200
To:  beginners@perl.org

good evening

i want to add a file in a mail i send to someone
for example , i wwant to add the file "inscription.txt"
to a mail

here is the first line to send a mail

open(MAIL, "|mail deny\@monaco.net");
print MAIL "Reply-To: $champs[1]\n";
print MAIL "sujet: Soumission du formulaire monaco teleformation2!\n";
print MAIL "nom utilisateur: $champs[4]\n";

the problem is to send the file ...

thanks for help