# Save the attachments on the local disk
    foreach $i (@attachments)
        {
        my $file = 'test'.$i; #DUMP . @attachments->filename(1);
        print "cou";
        open FILE, '>', $file or die $!;
        print FILE @attachments;
        close FILE;
        chmod 0644, $file;
        print "cou";
        }