use strict;
use warnings;
use File::Copy;
my $filename = 'txt';
for my $file ( <*.$filename> )
        {
                move($file, "\\Server3\\NoBackup\\Test") or die "Verschieben gescheitert: $!";
        }
print "Fertig";