added perl file to create table and minnor modification in sql