The following program should solve your immediate problem. I have tested it as far as I can, but if there are permission problems with your shares etc. you'll need to get someone who supports your systems to solve that.

If you have further problems with Perl, and from your code its likely you will, could I

• recommend you invest in a good book.
• Ask you to please read this before you post any more questions here. Every one of your posts to-date has had to be edited by one of the editors here before it was readable enough for anyone to even attempt to help you. (Clue: Wrap your program code in code tags eg. <code> ---paste your code here---</code>)

If your serious about learning Perl (rather than just solving your immediate problem), then I highly recommend that you consider going here and becoming a member. It's free and you will find it a lot easier to keep track of your posts and their replies if they don't get mixed up with all the other Anonymous Monk's posts.

#! perl
use warnings;
use strict;

use POSIX;
use File::DosGlob 'glob';
use File::Copy;

my $createdir = '\\\\10.1.1.5\\Weblogiclogs\\' . strftime( '%y%m%d%H%S
+', localtime);

my $logs = '\\\\10.1.1.5\\Weblogiclogs\\*.log';

if( ! -e $createdir ) {
    mkdir $createdir or die "Couln't create $createdir because $!($^E)
+\n";
}

my @logs = glob( $logs );

for my $file (@logs) {
    print "Moving file:$file to $createdir\n";
    move( $file, $createdir ) or warn "Couldn't move file:$file becaus
+e $! ($^E)\n";
}
[download]