Help for this page

Select Code to Download

Select or download this

use Win32::Service; 
my $filedir = "\\\\10.1.1.5\\Weblogiclogs"; 
...

@args = ( "move" , $IWlogs , $createDir ) ; 
system( @args ) == 0 or die "error moving $IWlogs reason $!($^E)";  # 
+NOTE: $! & $^E