Criado script perl