replicate data sent to a Perl stream Salvador Fandino <sfandino@yahoo.com>