#!/usr/bin/perl

local $/;
open DF,"test.txt";
binmode DF;
my $rec = <DF>;
close DF;

open (DF,'>test1.txt') || die ("Failed to open test1.txt: $!\n");
binmode DF;
print DF $rec;
close DF;

exit;