#!/usr/local/perl
### myfilter.pl

my  $sTest  = '';
while(<STDIN>){$sTest .= $_;}
print "
    _IT_WORKED_
    $sTest
    _IT_WORKED_
";