Help for this page

Select Code to Download

Select or download this

#! perl -slw
use strict;
...
tie *FH1, 'Filter::Handle', \*FH2, sub{ @_ }; ## << NOTE THE CHANGE!!!

print FH1 'Hello world!', $_ for 1 .. 10;

Select or download this

P:\test>del *.log

...
Hello world!9
Hello world!10