#!/usr/bin/perl
use strict;
use warnings;

use File::Copy::Recursive qw (rcopy);

print "Please enter source file or directory: ";
my $source = <STDIN>;
chomp($source);
if ( -e $source ){
	print "Please enter target: ";
	my $target = <STDIN>;
	chomp($target);
	print "Copying $source to $target\n";
	rcopy($source, $target) or die "Copy failed: $!";
}else{
	print "Source $source does not exist\n";
}