Noch immer Probleme mit Datei

[xNeTworKx]

Hallo,
Seit gestern sitz ich am Problem, daß ich eine Datei einfach umbenennen muss. Mein Posting ist aber in der Menge der anderen Postings scho ziemlich weit nach unten verschwunden, deswegen frag ich heute nochmal nach. Wie kann ich die Datei $posting in die Datei $neues_posting umbenennen ? Ich bekam gestern den Tip, daß es mit system($posting $neues_posting) klappen sollte, was es aber auch nicht tut. Ich bin grad dabei jetzt mal die ganzen Dateien einzulesen und bei Übereinstimmung umzubenennen, klappt aber auch nicht, da ich irgendwie nicht weis wie ich den Befehl rename einzusetzen habe. Ich bekomme keine Fehlermeldung, aber es tut sich einfach nichts. Die Datei wird einfach nicht umbenannt.

sub savereply   {

$posting = $posting .'.txt';
    my $unixzeit = time;
    my $neues_posting = $unixzeit .'.txt';

if ($email eq "")   {
    $email = '----';
    }

if ($hpadresse eq "" || $hpadresse eq 'http://')   {
    $hpadresse = '----';
    }

open(DB,">>messages/$posting") or die "Cant open Database : $!\n";
    flock DB, 2;
    print DB "\n";
    print DB "<reply>";
    print DB "<zeit>$zeit</zeit>\n";
    print DB "<topic>$topic</topic><name>$name</name><email>$email</email><hpadresse>$hpadresse</hpadresse>\n";
    print DB "<text>$text</text>\n";
    print DB "</reply>";
    close DB;

# ab hier will ich umbenennen

opendir(MES,"messages") or die "An error occurred : $!\n";
    while (my $datafile = readdir(MES))   {
        if ($datafile =~ /$posting/)    {
        rename($posting, $neues_posting);
        }
    }
    closedir(MES);
   #umbenennen Ende
   print $query->redirect($url);