added the perl script to create table