標準「エラー」出力なんだから、エラーを吐くだけの方が妥当だろう。

-t で端末かどうか調べてプログレスメータを表示するべきかどうか
判断させるのが良いかと。

……なんて固い事考えないで、目的を達成できるように書けばいいか。
その方が Perl 使いらしい。