sample perl scripts