Music On Hold Perl script

Hello World. A few days ago i begin to think in a perl or agi script that play music on hold on specific phone station.
For example, if i have a Linksys SPA942 on my desktop and i called to someone, after i hangup the Handset, start inmediatly the music on hold in the speaker phone.

I know someone have this code but i don’t remember so well the name.
Manuel [gnu]