Solving a problem for a user in the Lisbon.pm list

Contacto.pm

package Main::Result::Contacto;
use base qw/DBIx::Class/;
__PACKAGE__->load_components(qw/Core/);
__PACKAGE__->table('Contacto');
__PACKAGE__->add_columns(qw/ nome /);
__PACKAGE__->set_primary_key('nome');

1;

inserir.pl

#!/usr/bin/perl -w

use Main;
use strict;

my $schema = Main->connect("dbi:mysql:dbcontacto.db","root","") || die "KABUM";
#my $schema = Main->connect("dbi:SQLite:dbcontacto.db","root","") || die "KABUM";

my @contactos = (['Miguel']);
$schema->populate('Contacto', [ [qw/nome/], @contactos, ]);

#my @artists = (['Michael Jackson'], ['Eminem']);
#$schema->populate('Contacto', [ [qw/nome/], @artists,]
#);

__END__

sqlite3 dbcontacto.db

create table Contacto ( nome varchar(30) );

Main.pm

package Main;

use base qw/DBIx::Class::Schema/;

__PACKAGE__->load_namespaces;

1;