allegato email

[awialex]

ciao a tutti

sono arrivato a questo punto ma c'e' qlc che non va

#!/usr/bin/perl
$mailprog = '/usr/sbin/sendmail';
$recipient = email1';
$from = 'email2';
$subject = 'Invio backup database';
$att = 'percorso/2006_05_25__house.sql.gz';

open (MAIL, "|$mailprog -t") or &dienice("Can't access $mailprog!\n");
print MAIL "To: $recipient\n";
print MAIL "Reply-to: $from\n";
print MAIL "AttachFile: $att\n";
print MAIL "Subject: $subject\n\n";
print MAIL "Prova2";
close(MAIL);


problema l'email arriva ma non arriva l'allegato dove sbaglio???

[awialex]

up