sub attach {

    my $self    = shift;
    my $params  = shift;

    if ( $params->{ filename } && -e $params->{ filename } ) {

        my $filename    = $params->{ filename };
        my $mime_type   = mimetype( $filename );
            
        push @{ $self->{ attachments } },
          { Path => $filename, Type => $mime_type };
    }

    return $self->{ attachments }; # aoh
}