Ejemplo sencillo con DBIx::Class