Running Perl and MySql for Asterisk

Setting up MySQL:(
if you forget ur mysql password:

1. Stop the MySQL Server :sudo /etc/init.d/mysql stop
   
2. Start the mysqld configuration : sudo mysqld --skip-grant-tables &
3. Login to MySQL as root : mysql -u root mysql
4. Replace YOURNEWPASSWORD with your new password! : UPDATE user SET Password=PASSWORD('YOURNEWPASSWORD') WHERE User='root'; FLUSH PRIVILEGES; exit;

Note: This method is not regarded as the securest way of resetting the password. However it works.

create database callrouting;
use callrouting;
grant all privileges on callrouting.* to callrouter@localhost identified by 'callrouter';

create table passwords(id int(11) AUTO_INCREMENT NOT NULL, password varchar(255),primary key(id));
SHOW TABLES;
DESCRIBE passwords;
insert into passwords(password) values("1234");
quit;

---

PERL: Password check::::
running pl files: ./filename.pl or perl filename.pl