binmode(TXTIN);
binmode(UNIXOUT);
while(defined($linein = <TXTIN>)) {
	chomp($linein);
	print UNIXOUT "$linein\012";
}