#!/usr/athena/bin/perl
#
# Convert a text file to a MS-DOS text file.
#

while (<>) {
	chop;
	print "$_\r\n";
}