#!/usr/bin/perl

#
# _very_ simple formatter to change text files with '\n' to '\r\n' for
# consumption by DOS/Windows devices (like a printer).
#
while(<>) {
  chomp; print $_,"\r\n";
}