I checked CPAN and there is a module IO::Unread which works with another module PerlIO to allow you the ability to as IO::Unread says unread STDIN. Wags ;)