foreach my $at ( @attachments )
     {
       if ( $at->{content_type} =~ /pdf/i )
       {
         open(my $fh, '>', $at->{filename} ) || die ( $!);
         binmode $fh;
         print $fh  $at->{payload};
         $fh->close();
       }
     }