[Freeswitch-users] Perl equivalent dialplan