Node in pure perl