trying diff code eexample, perl gets munted