Create perl_db.pl