my $source='/home/www/user/logs/access_log'
my $dest='/home/www/user/dir/mylogs/access_log.'.localtime(); #<== Satum anhängen, denke mir währe nützlich :-)
# mv = move = verschieben
system("mv",$source,$dest)==0 or die("Fehler beim kopieren des Logs");
# touch = anfassen = Datei erstellen, oder Zugriffszeit aktualisieren
system("touch" $source); # < keine Fehlermeldung, einfach nur versuchen...

#!/usr/bin/perl
use 5.008;
use strict;
use warnings;

# Funktion zum Formatieren von Zeitstempeln importieren
use POSIX qw/strftime/;
# Funktion zum Verschieben von Dateien importieren
use File::Copy qw/move/;

# Konstanten definieren, die Quelldatei und Zielprefix angeben
use constant {
    SOURCE => '/home/www/user/logs/access_log',
    TARGET => '/home/www/user/dir/mylogs/access_log-'
};

# Aktuellen Zeitstempel YYYY-MM-DD berechnen
my $stamp = strftime '%Y-%m-%d' => localtime;

# Datei verschieben oder laut Feuer schreien, wenn etwas schiefgeht ;-)
move SOURCE, TARGET . $stamp
    or die "Unable to move file: $!\n";