use MIME::Lite; my $msg = MIME::Lite->new ( From => "from@example.org", To => "to@example.org", Subject => "My subject", Type => 'text/html' ); $msg -> attach ( Type => 'text/html', Data => "hi" );