sub make_backup
{
  my $dir=shift;
  my $file=shift;
  my $date=shift;

  my $from=$dir.'/'.$file;
  my $to=$dir.'/Data-Backup/'.$date.'-backup-'.$file;
  if(copy($from , $to))
  { return 1; }
  warn("Error copy $from => $to ($!)");
  return 0;
}

#...
my $work_dir='/home/xyz/Desktop/EZ-Datenverwaltung';
if ( make_backup($work_dir,'kunden.csv',$statusdatum) )
{ print "Kunden-Datenbank wurde gesichert... OK \n"; }

if ( make_backup($work_dir,'kurzgeschichten.csv',$statusdatum) )
{ print "Kurzgeschichten-Datenbank wurde gesichert... OK \n"; }

if ( make_backup($work_dir,'kundencounter.csv',$statusdatum) )
{ print "Kundenzähler-Datei wurde gesichert... OK \n"; }