{
    filename     => "suggested filename",
    payload      => "file contents".
    content_type => "mime type",
}

##</code><code>##

    # 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";
        }

##</code><code>##

foreach my $att ( @attachments )
    {
    my $file = $att->{filename};
    open my $fh, '>', $file or die $!;
    print $fh $att->{payload};
    close $fh;
    chmod 0644, $file;
    }