#!/usr/bin/perl -w

use strict;
use warnings;
use File::Copy;

if (-e '\\server\c$\log\logfile.log') {
  print "datei vorhanden\n";
  copy('\\server\c$\log\logfile.log','C:\TEMP') or die("Copy failed: $!");
} 
else {
  print "datei nicht vorhanden\n";
}