my $file = shift; #grab the first arg to the sub
my $todayfile = sprintf("%02d%02d%02d\.log", 
                           $times[5]-100,$times[4]+1,
                           $times[3]);
#then your exit routine