Create perl_stuff

perl scripts