What happens when someone else starts reading the file while you are parsing lsof's output? Or stops reading it, for that matter.

--
$you = new YOU;
honk() if $you->love(perl)