#!/usr/bin/perl
use Text::Iconv;
$converter = Text::Iconv->new("windows-1251", "koi8-r");
$osql = 'osql -S(local) -d subsidy -i"c:\\script.sql" -E';
@rs = `$osql` or die "Couldn't open $osql\n";
print @rs;

#!/usr/bin/perl
use Encode;
#$osql = 'osql -S(local) -d subsidy -Q"select top 10 client_id from client" -E -h-1';
$osql = 'osql -S(local) -d subsidy -i"c:\\script.sql" -E';
@rs = `$osql` or die "Couldn't open $osql\n";
foreach(@rs)
{
 Encode->from_to($_, "iso-8859-1", "сp1251");
print $_;
}

#!/usr/bin/perl
use Encode;
$osql = 'osql -S(local) -d subsidy -i"c:\\script.sql" -E';
@rs = `$osql` or die "Couldn't open $osql\n";
foreach(@rs)
{
Encode::from_to($_, "iso-8859-1", "iso-8859-1");
print $_;
}