or die "Could not open file ", $file, ": $!";