#!/usr/bin/perl
use warnings;  
use strict;      
use File::Copy::Recursive qw( dirmove fmove );

#              'D:/Users/bas/ftp_20110722/1/logs/ACREROCK TIE_SUB_log.txt';
my $frompath = 'D:/Users/bas/ftp_20110722';
my $topath   = 'D:/Users/bas/logs';
my $target   =                  '/1/logs';

print "\nabout to move $frompath$target\n";
print "press <enter>";
<>;

dirmove "$frompath$target", "$topath$target" 
    or die "can't move $frompath$target to $topath$target :",$!;

##</code><code>##

d:\Users\bas>perl dirmove_test.pl

about to move D:/Users/bas/ftp_20110722/1/logs
press <enter>
can't move D:/Users/bas/ftp_20110722/1/logs to D:/Users/bas/logs/1/logs :Permiss
ion denied at dirmove_test.pl line 22, <> line 1.