#!/usr/bin/perl -w
use Time::HiRes qw( time );

undef $/;
$| = 0;

my $file;

my $start = time();
open(FILE, $ARGV[0]);
$file = <FILE>;
close FILE;
open(FILE, ">$ARGV[1]");
print FILE $file;
close FILE;
my $total = time() - $start;

print "$total Seconds Elapsed.\n";