#!/usr/bin/perl -w
use strict;

my $source_file = 'file1.txt';
my $copied_file = 'file2.txt';
my @contents;

open( SRC_FILE, "<$source_file" )
   or die( "Failed to read $source_file: $!" );
@contents = <SRC_FILE>;
close SRC_FILE;

open( COPY_FILE, ">$copied_file" )
   or die( "Failed to write to $copied_file: $!" );
print COPY_FILE @contents;
close COPY_FILE;