use File::Copy;

$filetobecopied = "<dir1>\*.*"

$destcopy = "<dir2>";

copy($filetobecopied, $destcopy) or die "File cannot be copied.";