#!/usr/local/bin/perl
#
#
#

@files = `ls -1 *.pl`;
foreach $file (@files) {
	chop($file);
	if (-B $file || $file eq "stripcr.pl") {
	warn "Can't process binary file: $file\n";
	next; }
	open(FILE, $file) || do { warn "Can't open $file: $!\n"; next; };
	$contents='';
	$changed = 0;
	while(<FILE>) {
		if(m#\r#) {

			$contents .= $`."\n";
			$changed++;
		}
		else { $contents .= $_; }
	}
	close FILE;
	if ($changed) {
		rename($file,"$file.bak") ||
			do { warn "Can't rename $file: $!\n"; next; };
		open(FILE, ">$file") ||
			do { warn "Can't make $file: $!\n"; next; };
		print FILE $contents;
		close FILE;
	}
}