copy data from one file to another file line for line

copy.pl

#!/usr/bin/perl

open(IFILE, "<index.html");
open(FILE, ">_tmpfile.txt");

while(<IFILE>) {
    chomp();
    syswrite(FILE, $_);
    syswrite(FILE, "\n");
}
close(FILE);
close(IFILE);

<>;