#!/usr/bin/perl
use strict;
use warnings;

#$unc_z ergibt z.B. \\192.168.0.20\c$\\
#$file_name wäre \\192.168.0.20\c$\datei.txt

my $unc_z="\\\\192.168.50.1\\x\$\\";
my $temp='datei';
my $hsh_key='txt';
my $file_name="$unc_z$temp.$hsh_key";
rename ($file_name, $file_name."\.md5err");