use File::Copy;

my $to = 'd:/temp/logs/";
foreach my $from (glob '//amsepi01/logs$/*.gz') {
    copy($from, $to) or die "copy: $!";
}