TestConn.pm

package TestConn;
use Dancer ':syntax';
use DBI;

my $dbh = DBI->connect( ... );

our $VERSION = '0.1';

get '/' => sub {
    my $sth = database->prepare( "...");
	$sth->execute;
	my $count = $sth->fetchrow_hashref;
	return $count->{ count };
};

true;