perl Test-Script