#!/usr/bin/perl

$^I=".bak";

while(<>)
{
    s/\n/\r\n/g;
    print;
}
