Select Code to Download

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

    # Save the attachments on the local disk
    foreach $i (@attachments)
...
        chmod 0644, $file;
        print "cou";
        }

foreach my $att ( @attachments )
    {
...
    close $fh;
    chmod 0644, $file;
    }