diff --git a/ponysay b/ponysay
index cf275232..03d2bd85 100755
--- a/ponysay
+++ b/ponysay
@@ -44,7 +44,7 @@ say() {
     # Ponies use UTF-8 drawing characters. Prevent a Perl warning.
     export PERL_UNICODE=S
 
-    exec "$cmd" -f "$pony" "${wrap:+-W$wrap}"
+    exec "$cmd" -f "$pony" "${wrap:+-W$wrap}" | (ponysaytruncater `tput cols || echo 0` 2>/dev/null || ./ponysaytruncater `tput cols || echo 0` 2>/dev/null || cat)
 }
 
 while getopts f:W:lhv OPT