open my $fh,...
while (<$fh>) {
}
close $fh;