https://tech.iprock.com/archives/1721
Geolock — a Perl script for Asterisk or FreePBX users to enhance security