open(FILE, "filename") or die "couldn't open filename: $!"; # check return status of system calls!
for ($count = 0; <FILE>; $count++) {}