#! /usr/local/bin/perl
&ReadParse(*input);
$vNome=$input{"nome"};
print &PrintHeader;
print &HtmlTop("Al!");
print qq(Al, $vNome);
print &HtmlBot;
#Colocar o MAGIC.TXT a partir daqui
 