1#!/usr/local/bin/perl
2
3sub {
4  my ($filename) = @_;
5  my $rotated_filename="";
6  if (-e "$filename.1") {
7    # assume the log is rotated by logrotate(8)
8    # should also probably check if file is still fresh
9    $rotated_filename="$filename.1";
10  }
11  return $rotated_filename;
12}
13