#!/usr/bin/perl
use strict;
use warnings;
use File::Copy;
my $unc_z = '\\\DEV\x$';
my $temp = '\tmp';
my $file_name = $unc_z . $temp .'\ht.txt';
copy( $file_name, $file_name. '.md5err') or die ("$!: $file_name");