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


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

dircopy($orig,$new);