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

my $source_dir = '/home/my/this_dir';
my $destination_dir = '/nfsmount/elsewhere/this_dir';

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

if ( $! ) {
    # Prints 'Is a directory' (and the move doesn't happen).
    print $!;
    }
----------------------------