in reply to
We interrupt this program...
You could use
Term::ReadKey
to check if a key was pressed without blocking.
Comment on
Re: We interrupt this program...
In Section
Seekers of Perl Wisdom