#!/usr/bin/perl

use DBI;
use strict;
my $countries = 'fips_countries.txt';
my $dbh = DBI->connect('dbi:Pg:dbname=hellas',undef,undef,
    {AutoCommit => 0, RaiseError => 1});


open(COUNT,$countries);
while(<COUNT>) {
        chomp $_;
        my ($name,$iso,$fips) = split(':',$_);
	my $sql = "INSERT INTO country (name,iso,fips) values (?, ?, ?)";
#        warn($sql);
	$dbh->do($sql, {}, $name, $iso, $fips);
        $name =~ s/^ //g;
}
$dbh->commit;