package PerlIO::via::HtmlEncode;
 
 
$VERSION = '0.01';
use strict;
 
 
use HTML::Entities;
 
 
1;
 
sub PUSHED { bless \*PUSHED,$_[0] }
 
 
sub FILL {
 
    my $line = readline( $_[1] );
    (defined $line) ? decode_entities( $line ) : undef;
}
 
sub WRITE {
 
    (print {$_[2]} encode_entities($_[1])) ? length($_[1]) : -1;
}
 
1;

##</code><code>##

use PerlIO::via::HtmlEncode;
                                                                                
binmode STDOUT,':via(HtmlEncode)';
                                                                                
print "&£<>";