use Time::Piece::ISO;
my  $t = Time::Piece::ISO->strptime('2002-04-25T21:17:52'); 
print LOG "Time is $t\n"; # prints "Time is 2002-04-25T21:17:52"