use DBD::XBase;
use DBI;
use Encode qw /from_to/;
$dbname = "sbit";
$username = "postgres";
$password = "pass";
$dbhost = "ip";
$dir = "/mnt/sbit/MOLDS/";
my $xbase_dbh = DBI->connect("DBI:XBase:$dir", undef, undef, {RaiseError =>1});
$dbh = DBI->connect("dbi:Pg:dbname=$dbname;host=$dbhost","$username","$password",
            {PrintError => 0});
if ($DBI::err != 0) {
  print $DBI::errstr . "\n";
  exit($DBI::err);
}
my $sel = "SELECT ADPOT FROM jrbp";
my $sel_csr = $xbase_dbh->prepare($sel);
$sel_csr->execute();
@st=();
while ( @row = $sel_csr->fetchrow_array )
{
 foreach $st(@row)
{push(@st,$st."\t");}
$qw="INSERT INTO jrbpi(ADPOT)
values(substr('$st[-1]',1,35))";
Encode::from_to ($qw, 'cp866', 'utf8');
$pgb = $dbh->prepare($qw) or die "Prepare: $qw", $dbh->errstr;
$pgb->execute or die "Executing: $qw", $pgb->errstr;
}

$adpots=substr($st[-1],1,35);
$adpots="$adpots";
$adpots=~ s{"\"}{"/"}g ;
$qw="INSERT INTO jrbpi(ADPOT)
values('$adpots')";