#!/usr/bin/perl -w
open(INIT, ">doit");
while (<INIT>) {
    printf "%s\n", $_;
}
close INIT;