pearl to shell

[oerbb]

Ich war auf der Suche nach einer einfachen Apache Logfile Rotation in Shell Scrtip, da ich in dieser nicht so bewandert bin. Habe nun genau das gefunden, wonach ich gesucht habe! Leider ist die ganze Sache nun in Pearl programmiert.
Ist jemand fähig dazu, dieses script in shell umzuschreiben bzw so nett um das zu tun?!
wäre sehr dankbar!

  #!/usr/local/bin/perl
 $LOGPATH='/usr/local/apache/logs';
 @LOGNAMES=('access_log','error_log','referer_log','agent_log');
 $PIDFILE = 'httpd.pid';
 $MAXCYCLE = 4;

 chdir $LOGPATH;  # Change to the log directory
 foreach $filename (@LOGNAMES) {
    for (my $s=$MAXCYCLE; $s >= 0; $s-- ) {
        $oldname = $s ? "$filename.$s" : $filename;
        $newname = join(".",$filename,$s+1);
        rename $oldname,$newname if -e $oldname;
    }
 }
 kill 'HUP',`cat $PIDFILE`;