#!perl -sl
use lib qw ( c:\code\perl );

use strict;
use warnings;

use My::Schema;
use constant {
    DBI_DSN   => 'dbi:ODBC:driver={SQL Server};Server=(local);database=example;Trusted Connection=yes',
    DBI_USER  => undef,
    DBI_PASS  => undef,
};

my $eg_schema = My::Schema->connect(DBI_DSN,DBI_USER,DBI_PASS,
	{ RaiseError=>1, AutoCommit=> 1 });
my $cd_rs = $eg_schema->resultset('CD')
	->search({ 'RN' => { '<=', 2 } });

print $_->RN.",".$_->cdid.",".$_->title while $_ = $cd_rs->next;

__END__