use DBI;

my $driver = "mysql";
my $dsn = "DBI:$driver:database=abogados;host=localhost;port=3306";
my $dbh = DBI->connect($dsn,'cviales','cmv') or die qq(Cannot connect to database);

my $sth = $dbh->prepare(qq(insert into suspendidos_mora (codigo) values (?)));



while (<>){

   $sth->execute( ((split /;/)[0]) );

}