adding initial perl scripts