open DF,"test.txt";
binmode DF;
my @test = <DF>;
close DF;

my $rec;
foreach(@test){$rec.=$_;}
open (DF,'>test1.txt') || die ("Failed to open test1.txt: $!\n");
binmode DF;
print DF $rec;
close DF;