mkdir("$i/controlpanel", 0755) or die "Problems making dir : $!\n" unless ( -d "$i/controlpanel" );

system("cp -fRp $dir/controlpanel") or die "Problems copying dir : $!\n";