#!/usr/bin/perl -w use strict; use File::NCopy; my $copy_file = File::NCopy->new ( 'recursive' => 1, 'preserve' => 1, 'force-write' => 1, ); # WAS: $copy_file->copy "/ref/webmail","/www/$domain"; $copy_file->copy("/ref/webmail","/www/$domain");