#!/usr/bin/perl
use strict;
use warnings;
use File::Copy;

my $source = $ARGV[0];
my $target = $ARGV[1];
copy("$source", "$target") or die "Can't copy files ($!)\n"