I am sure there is a perl module out there for it

Indeed, in fact there are several, e.g. Log::Dispatch::FileRotate and Logfile::Rotate.

but time was for the essence in here.

If I were you I would definitely use a module from CPAN rather than roll my own. Time and effort saved, and the resulting code would probably be better tested.