#!/usr/bin/perl -w
use strict;

use Normalizer;
my %parameters = (
   DSN           => "DBI:mysql:music;host=localhost;"
                    . "mysql_read_default_file=$ENV{HOME}/.my.cnf", 
   src_table     => "MP3",
   index_field   => "album_id",
   lookup_fields => "artist,album,genre",
   lookup_table  => "tmp_albums", 
   dest_table    => "songs",
   copy_indexes  => 1
);
my $norm = Normalizer->new (\%parameters);
$norm->do();