perl mod example