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

my $copy_from = "C:/Users/Admin/Desktop/Staples files/readfile.txt";
my $copy_to = "C:/Users/Admin/Desktop/staples/staples_readfile.txt";
copy($copy_from, $copy_to);