#!/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";