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