如何在Perl中不阻塞地测试STDIN？

I'm writing my first Perl app -- an AOL Instant Messenger bot that talks to an Arduino microcontroller, which in turn controls a servo that will push the power button on our sysadmin's server, which freezes randomly every 28 hours or so. I'm writing my first Perl app -- an AOL Instant