sub move_logs
{
     my ($logs, $target_path) = @_;
     # : (etc.)
}

# ...

my $log_path = '\\\\10.1.1.5\\Weblogiclogs\\'
               . strftime( '%y%m%d%H%M', localtime);
my $logs     = "\\\\192.168.2.5\\Weblogiclogs\\*.log";

move_logs($logs, $log_path);