perl + mssql 접속 코드

#!/usr/bin/perl

use DBI;

use strict;

use DBI;

my $server = "127.0.0.1";  

my $db = "databasename";  

my $uid = "user_id";  

my $pwd = "password";  

my $cn = "DBI:ODBC:Driver={SQL Server};server=$server; database=$db; uid=$uid; pwd=$pwd";  

$db = DBI->connect($cn) or die "$DBI::errstr";  

  

my $sql = "select top 10 id, name, comments from table_name";  

my $cmd = $db->prepare($sql);  

$cmd->execute();  

  

binmode STDOUT, ':encoding(euc-kr)';  

  

while (my $rs = $cmd->fetchrow_hashref()) {  

  print $rs->{'name'}."\n";  

}    

$cmd->finish();  

$db->disconnect();