some perl scripts when learning perl