Select Code to Download

sub move_logs
{
     my ($logs, $target_path) = @_;
...
my $logs     = "\\\\192.168.2.5\\Weblogiclogs\\*.log";

move_logs($logs, $log_path);

foreach my $file (glob($logs))
{
     move($log, $log_path) || die "screaming";
}