first commit
initial perl scripts