How do I get the havens flute on pokemon perl?

[b-dawg]

i am trying to get Arceus on perl and you need a havens flute dose anyone know were to get it or how to get it