use strict;
use warnings;
my $data;
open(FILE,"<yourfile") || die "oops $!";
{
  local $/ = undef;
  $data = <FILE>;
}
close(FILE);

open(FILE2,">file2");
print FILE2 $data;
close(FILE2);