#!/usr/bin/perl -w
use Class::DBI::Loader;

my $loader = Class::DBI::Loader -> new(
              dsn => "dbi:Pg:dbname=peter_bcdc",
              user => "pberghol",
              password => '$3cr3t$9u!rr31', # not real! 
              options => { RaiseError => 1, AutoCommit => 1 },
              namespace => 'Db',
              relationships => 1
);

while ( my $line=<DATA> ){
  chomp $line;
  my ($given_name,$surname,$email) = split(",",$line);
  my $person = Db::Person -> find_or_create(
                                            {given_name => $given_name,
                                            surname => $surname,
                                         email_addr=> $email
                                         }
                                           );
}



exit(0);

__END__
<data follows here, but is besides the point...>