Data creater module in perl.