binmode STDOUT;
while (<>) {
    s/\n//;
    print "$_" . chr(10);
}