perl -we 'open $f, "<", "/etc/passwd" or die 1; for (0..2) { $! = 0; $l = readline $f; $s = $!; chomp $l; print qq/"$l", $s\n/; }'