Select Code to Download

use strict;
use warnings;
...
    print "\n";
}
1;

#!/usr/bin/perl 
use strict;
...

$artist3->set_music;
$artist3->show_music;