1#!/usr/local/bin/perl
2
3sub {
4  my ($filename) = @_;
5  my $rotated_filename="";
6  # find out whether we have a dateext rotation scheme
7  my @list = glob("$filename-[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]");
8  if ( @list ) {
9    $rotated_filename = (sort(glob("$filename-[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]")))[-1];
10  }
11  return $rotated_filename;
12}
13