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