Dateien umbenennen

[xNeTworKx]

Hallo,
Ich hab ein Forum programmiert, welches einwandfrei funktioniert. Jetzt will ich aber nur, daß wenn jemand eine Antwort auf irgendein Posting schreibt, dieses auf die Spitze rutscht. Das einzige was ich tun muss, is die Datei mit der aktuellen Unixzeit versehen (Die Datenfiles bestehen aus der Unixzeit + .txt, um sie sortieren zu können ) und da wär ich auch schon beim Problem. Wie mach ich das ? In meinem Perl Buch ist nur in einem kleinen Absatz beschrieben das es rename datei, neueDatei heisst, was aber irgendwie nicht ganz klappt. Hier der relevante Teil :

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;

# Hier will ich nun umbenennen rename $posting, $neues_posting;
   print $query->redirect($url);

}