mozart and perl