use strict;
my $i;
open(DC08, '<c:\temp\dc08dl03a.txt');
open(DCOU, '>c:\temp\dc08dl03.txt');
DC: while (<DC08>) { print DCOU "$_\n"; }
close(DC08);
close(DCOU);