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