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