copier les pièces jointes des MAILS d'une boite sur DDUR

[devjlfr2]

Bonjour à tous,
Je decouvre ce language et ca fait 3 jours que j'essaie de continuer ce script , mais sans succes pour ecrire les pièces jointes sur DDUR.
************************************

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
#!/usr/bin/perl -w
use strict;
use Net::POP3;
#Étape 1
my $pop = Net::POP3->new('pop.free.fr') or die 'Impossible de se connecter au serveur : '.$!;
print "2";
#Étape 2
my $nbmsg = $pop->login('jlf5808@free.fr', 'xxxxxx') or die 'Erreur d\'identification !';
 
print 'Vous avez '.$nbmsg." messages !\n\n";
print "3.....";
#Étape 3
my $index = $pop->list(  ) or die 'Impossible de lister les messages !';
 
foreach my $msgnum (keys %$index) {
	my $msg = $pop->get($msgnum) or die 'Impossible de récupérer le message n°'.$msgnum.' !';
	print @$msg."";
        print "valeur=$msg\n";  
}  
 
#Étape 4
$pop->quit() or die 'Un problème est survenu avec la méthode quit() !';
 
 
print "connecté $pop";
<>;

****************************
Je voudrais <comme avec print "valeur=$msg\n > faire la copie de la pièce jointe sur DD
****************************
D'avance merci à tous
Jean Louis FRANCOIS