open IN, $filename or die "Cannot open $filename for input: $!\n";
close IN;