You still don't have use strict;, you don't need both #!/usr/bin/perl -w and use warnings;, you don't display $! in the event of a copy failure. Re read the module documentation.

#!/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";
}
[download]