Read Attachment from SendMail

I have a letter whith this hed in my mailbox. How can I read the attachment from Perl or...?

from blablabla blaaa...
MIME-version: 1.0
Content-Type: multipart/mixed; boundary="TFS-with-MIME-and-DIME"
X-Mailer: TFS Secure Messaging /310000000/300101596/300400249/300221015/

Message is sent with MIME. Attachments are base64 encoded
--TFS-with-MIME-and-DIME
Content-Type: text/plain; charset=ISO-8859-1
Content-transfer-encoding: quoted-printable

message blablabla blaaa...

--TFS-with-MIME-and-DIME
Content-Type: application/octet-stream; name="filname.skv"
Content-transfer-encoding: base64

IjM0NTQ3IiwiPTJORVcgUVVBRCBBTkFMT0cgRElHSVRBTCBWLjM0IiwiM0NP
TSIsIjAwMDg0OS0wIiwwLjAwMCwwLjAwLDEuMDAsIiAgICAgICAgMTcxOS4w
.
.
.
IFBST0NFU1NPUiBNT0QiLCJYWVBMRVgiLCJOOS0yMTEtMDAwIiwwLjAwMCww
LjAwLDEuMDAsIiAgICAgICAgIDgyMi41MCINCg==


--TFS-with-MIME-and-DIME--