Problema Perl-DBI

[mgrubio]

Hola. al intentar conectarme a una base de datos e insertar me da fallo. Este es el codigo que utilizo:

#!/usr/bin/perl

use DBI;

my $dsn = 'DBI:mysql:bbdd:localhost;
my $db_user_name = 'name';
my $db_password = 'pssw';
my ($id, $password);
my $dbh = DBI -> connect($dsn, $db_user_name, $db_password);

my $sth = %dbh -> prepare (qq{
insert into alumnos (Nombre, Apellidos, Login, Contrasena) values (a,b,c,d)
});


$sth->execute();

$sth -> finish();