#! 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 because $! ($^E)\n";
}