Select Code to Download

#!/usr/bin/perl
use warnings;  
...

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

d:\Users\bas>perl dirmove_test.pl

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