use EBook::MOBI;

my $pod = <<END;

=head1 Some POD

Some text.

=head2 Some Pictures

An image.

=image ./example/img/camel.jpg A Camel.

An image which has been resized.

=for image ./example/img/camel_big.jpg A Camel again.

=head3 A List


=item *

First item.

=item *

Second item.


=head2 That's it

The end.


my $book = EBook::MOBI->new();

# let's define a debug sub witch will be used by all modules
sub debug {
    my ($package, $filename, $line) = caller;
    print "$package\t$_[0]\n";

# pass the reference of the sub to our book

# fill the book with meta info
$book->set_title   ('A Test: Simple');
$book->set_author  ('Boris');

# fill the book with content
$book->add_mhtml_content(" <h1>A Test Titlepage</h1><p>Very simple...</p>");
$book->add_content(data => $pod, pagemode => 1);