Hi,

'foreach ($lines) {' -
should this be 'foreach (@lines) {' ?

And so on

J.C.