my ( $day, $month, $year ) = ( gmtime $time )[ 3, 4, 5 ];
my $newlogDate =
sprintf( '%04d/%02d%02d', $year + 1900, $month + 1, $day );
my ( $day, $month, $year ) = ( gmtime $time )[ 3, 4, 5 ];
my $newlogDate =
sprintf( '%04d/%02d%02d', $year + 1900, $month + 1, $day );