Select Code to Download

#!/usr/bin/perl -w
use strict;
...
);
my $norm = Normalizer->new (\%parameters);
$norm->do();

perl -e 'use Normalizer; Normalizer->snew(qw(localhost music \ 
    MP3 album_id album,artist,genre tmp_albums songs 1 0 0))->do()'

 +----------+-------------+------+-----+----------+----------------+
 | Field    | Type        | Null | Key | Default  | Extra          |
...
 | size     | int(11)     |      |     | 0        |                |
 | genre    | varchar(10) |      | MUL |          |                |
 +----------+-------------+------+-----+----------+----------------+

    DROP TABLE IF EXISTS tmp_albums;
      # create the lookup table
...
    FROM MP3 src INNER JOIN tmp_albums lkp 
        ON (src.artist =lkp.artist and src.album =lkp.album 
            and src.genre =lkp.genre);