#!/usr/bin/perl
use strict;
use File::Basename;
use File::Copy::Recursive qw(dircopy);


my $orig = "Structure/";
my $new = "Structure.Backup/";

$File::Copy::Recursive::PFSCheck = 0;
dircopy($orig,$new);