use DBD::XBase;
use DBI;
use File::Copy;
use Encode qw /from_to/;

$dbname = "base";
$username = "postgres";
$password = "pass";
$dbhost = "ip server";


my $dir = "/home/pavelp/mysbit/D/pavel/ml/pimport";
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 sumfrt,datd,datv FROM pimport.dbf where  between(datd,'130921','130926')";
my $sel_csr = $xbase_dbh->prepare($sel);
$sel_csr->execute();