my $top = MIME::Entity->build({ To => 'you@there.pl' });
$top->attach(MIME::Entity->build({ Content-type => 'multipart/alternative; boundary="abc123---" });