----------------------------
use File::Copy;

my $source_dir = '/home/my/this_dir';
my $destination_dir = '/usr/local/elsewhere/this_dir';

move("$source_dir", "$destination_dir");
----------------------------