use strict;
use warnings;
use File::Copy;

  my $file1 = shift || die "No args!\n";
  my $file2 = shift || die "Second file please?\n";

  copy("$file1","$file2");