難しかった．
Net::Twitterで，update_with_media(media[])を長らく使っていたけど，これはもうdeprecatedなので，今回のstream廃止と同時に使わないようにしようと思った．
upload(media) → update() で行けるはずなのだけど，Net::Twitterのドキュメントみても”media”が何なのかがよく分からない．
Net::Twitter::Liteだと，これは upload_media(media[])となっている．これなら今までと同じなので，使える．
$tw->{status} = $s;
$tw->{media} = [undef,$fname, Content_Type => $ftype, Content => $image];
$nt->update_with_media($tw);
みたいなのを，
$tw->{status} = $s;
$tw->{media} = [undef,$fname, Content_Type => $ftype, Content => $image];
$img = $nt->upload_media($tw);
$tw->{media_ids} = $img->{media_id};
$nt->update_with_media($tw);
としたら，update_with_mediaがHTTP::Messageのエラーを吐く．
$tw->{status} = $s;
$tw->{media} = [undef,$fname, Content_Type => $ftype, Content => $image];
$img = $nt->upload_media($tw);
$tw->{media_ids} = $img->{media_id};
$tw->{media} = undef;
$nt->update_with_media($tw);
で動いた．横着せずに$twと生のイメージを分離しておくべきだった，ってこと．