#!/usr/bin/env perl

while (<>) {
  s/&/&amp;/g;
  s/</&lt;/g;
  s/>/&gt;/g;
  print $_;
}