#!/usr/bin/perl

use strict;
use warnings;

use File::Copy qw( copy );

copy $ARGV[0], $ARGV[1];