Wide character in print at E:\...\ConnectSQLServer.pl line 122.

##</code><code>##

binmode STDOUT, ':utf8';

##</code><code>##

open( my $output_handle, '>:utf8', $output_name ) or die $!;