Help for this page
$ hexdump -C foo 00000000 61 0a 30 |a.0| ... read line read line $
$ perl -MDevel::Peek -wle 'while (my $x = <>){ print "read line"; pri +nt "and its true" if $x }' foo read line and its true read line