use strict;
use warnings;
use Cwd;
use File::Copy;
use File::NCopy qw(cp);

my $home_dir = getcwd;
my $dir = "c:/temp";
my $version = "2.0.04.00.01";
my $str2 = "our new Build";
my $str = "$home_dir/$version/$str2";

print "copy $str to $dir\n";
cp \1, "$str", "$dir", or die "geht nicht: $!";