perl and code