#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;
use File::Copy;
copy("te&st/te&st.txt","te&st/te&st_neu.txt") or die "Copy failed: $!";