--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/util/scripts/unix_to_dos	Mon Jan 11 14:00:40 2010 +0000
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+undef $/;
+
+foreach $f ( @ARGV ) {
+    if ( open( F, "< $f" ) ) {
+	$i = <F>;
+	close F;
+	$i =~ s/\n/\r\n/g;
+	$i =~ s/\r+/\r/g;
+	if ( open( F, "> $f" ) ) {
+	    print F $i;
+	    close F;
+	}
+    }
+}