#! /usr/bin/perl

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