Rotating Log File

• Tie::File solution:

 tie @LOG, 'Tie::File', '/etc/logfile';

 sub log {
 push @LOG, @_;
 my $overflow = @LOG - 100;
 splice @LOG, 0, $overflow if $overflow > 0;
 }