#!/usr/bin/perl
use v5.14.2;
use strict;
use warnings;

use utf8;
use MyApp::Schema;
use open ":encoding(gbk)", ":std";

my $schema = MyApp::Schema->connect('dbi:ODBC:DSN=ecis_yl','sa','7354500',
{odbc_trace_file => 'c:\temp\odbc.trc',
                      odbc_trace => 1}
);

say $schema;
my $rs = $schema->resultset('Search');

while (my $search = $rs->next) {
   say $search->mysql;   
}