open OUT, $out || die "Can't open $out!\n";