shell> perl -e '$SIG{TSTP} = sub { warn "suspension trapped\n" }; \
                sleep 50; print "on with the show ...\n"'

__output__

suspension trapped
on with the show ...