Something

#!/usr/bin/perl w

use strict;
use FindBin;
use lib (qq|$FindBin::Bin/../lib|);
use AppDB;

        my $dsn = qq|dbi:SQLite:$FindBin::Bin/../db/app.db|;
        my $schema = AppDB->connect($dsn);
        print "Connected to: $dsn \n";



#        my $item = $schema->resultset->('People')->find(1);


        print "Done\n";