>perl foo.pl
read: a line
read: a second line
read: 0
>