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