copy ($filename, archive\\$archiveFileName);

##</code><code>##

copy("sourcefile","destinationfile") or die "Copy failed: $!";

##</code><code>##

copy($archiveFileName, "archive\\$archiveFileName")
    or die "Copy failed: $!"