open(IN,$log) || die $!, "\n";