$t = $t->strptime( $x, '%s' ); ## to:
$t = Time::Piece->strptime( $x, '%s' );