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