#!/usr/local/bin/perl -ni
# Removes ^M's
# Kees Cook 1997
	s/\r//g;
	print;