open IN, $filename or die "Cannot open $filename for input: $!\n";
while( <IN> ) {

}
close IN;