#!/usr/bin/perl

use strict;
use warnings;
use File::NCopy;

my $path_files = 'Structure/';
my $path_files_history = 'Structure.Backup/';

my $file = File::NCopy->new(recursive => 1);
$file->copy($path_files,$path_files_history);