while (defined(my $ch = getc(FILE))) {