perl example (working on osx)