#!/usr/bin/perl
while(<>) {
  chomp;
  print $_."\r";
}
