#!/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 :",$!;