use MIME::Lite;

my $msg = MIME::Lite->new(
    'To'      => 'example@example.com',
    'Subject' => 'testmail',
    'Data'    => 'blablabla',
);
$msg->attach(
    'Type'        => 'application/zip',
    'Path'        => '/pfad/zur/datei.zip',
    'Disposition' => 'attachment',
);
$msg->send();