use strict;
use warnings;
use Mail::Bulkmail::Dynamic;



my $bulk = Mail::Bulkmail::Dynamic->new(
    "merge_keys"            => [qw(BULK_EMAIL <name>)],
    "merge_delimiter"       => "::",
    "From"                          => "'Jim Thomason'<jim\@jimandkoka.com>",
    LIST => [qw(stefan.petrea@gmail.com::Stefan)],
    "Subject"                       => "This is a test message",
    "Message"                       => "your email is BULK_EMAIL and your name is <name>"
) || die Mail::Bulkmail->error();

$bulk->bulkmail() || die $bulk->error;