qtbase/util/scripts/unix_to_dos

#!/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;
	}
    }
}