Select Code to Download

INSERT INTO scenes ( film, time, title) 
VALUES ( (SELECT me.title FROM movies me 
WHERE ( ( director (SELECT me.name FROM directors me 

WHERE ( name = ? )) AND title = ? ) )), ?, ? )

package TestDB::Scene {
    use parent 'DBIx::Class::Core';
...
        return $schema;
    }
};