use File::Copy qw(move);
my $svr = 'SERVER';
my $htmlFilename = 'Datei.html';

move("\\\\$svr\\e\$\\Share\\Logs\\events\\$htmlFilename", "C:\\BackupEventLogs\\$svr\\$htmlFilename") || die " $!";