use File::NCopy;
File::NCopy::copy (\1, "$input{'directory'}", "$input{'copy_to'}");