my $template = HTML::Template->new(filehandle => \*DATA);

##</code><code>##

use strict;
use warnings;
use DVD::movie;
use Inline 'TT';

print DVD(movies => [DVD::movie->retrieve_all]);

__DATA__
__TT__
[% BLOCK DVD %]
   [% FOREACH movie = movies %]
   <img src="http://dvd.unlocalhost.com/images/[% movie.id %].jpg" align="right" />
   <h2>[% movie.title %]</h2>
   <ul>
      <li> Year - [% movie.year %]</li>
      <li>Added - [% movie.timestamp %]</li>
      <li>Directors:</li>
      <ul>
      [% FOREACH director = movie.directors %]
         <li>[% director.name %]</li>
      [% END %]
      </ul>
      <li>Writers:</li>
      <ul>
      [% FOREACH writer = movie.writers %]
         <li>[% writer.name %]</li>
      [% END %]
      </ul>
      <li>Genres:</li>
      <ul>
      [% FOREACH genre = movie.genres %]
         <li>[% genre.name %]</li>
      [% END %]
      </ul>
   </ul>
   <br clear="right" />
   [% END %]
[% END %]