如何在不使用select的情况下检查（查看）Perl中的管道数据的STDIN？

I'm trying to handle the possibility that no arguments and no piped data is passed to a Perl script. I'm assuming that if there are no arguments then input is being piped via STDIN. However if the user provides no arguments and does not pipe anything to the script, it will try to get keyboard input. My objective is to provide an error message instead.I'm trying to handle the possibility that no ar