tie *LOG, "Tie::Tailrotate", "$logfile"; 
open ...