super Adaptation

J'essaie d'envoyer le resultat par mail avec le module MIME::Lite
trouvé ici :
http://www.alianwebserver.com/informatique/languages/perl/ma(...)

Donc le script devient :

#!/usr/bin/perl -w
use MIME::Lite;

sub envoi {
print "Partion pleine\n";
print "Partion\t\t Mont303円251円 sur\t utilis303円251円 303円240円\n";
foreach (`df -h | tail +2 2>/dev/null`) {
s/%//;
my @i=split;
if ($i[4] > 25 ) {
print "$i[0]\t($i[5])\t\t$i[4]%\n";
}
}
}
my $msg = new MIME::Lite
From =>'toto@hostname.org',
To =>'mdubois@polytech.unice.fr',
Subject =>'A simple text message',
Type =>'TEXT',
Data => print envoi();
$msg -> send;


Mon soucis c'est que le mail est vide .... Je suis un peut dépassé là mais merci de votre aide