Scripting with perl