#!/usr/local/bin/perl 

#use LWP::Simple;
# Busca a pagina da engetron
$URL = "http://aids.lecom.dcc.ufmg.br:8080/info.htm";
#unless (defined ($content = get $URL)) {
#	die "could not get $URL\n";
#}

#Converte para ASCII
#$plain_text = HTML::FormatText->new->format(parse_html($content));

@ascii = `lynx -dump $URL`;
#print 'Content-type:application/vnd.wap.wml '."\n\n\n";
print ('<?xml version="1.0"?>');
print "\n";
print ('<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "C:\Arquivos de programas\Zylog Systems\WAPPage\wml_1.1.xml">');
print "\n";
print ('<wml>');
print "\n";
print ('<card id="page1" title="Pagina1">');
print "\n";
print ('<p>');
print "$ascii[18]";
print "$ascii[20]";
print "\n";
print "$ascii[21]";
print "$ascii[23]";
print "\n";
print ('</p>');
print ('</card>');
print "\n";
print ('</wml>');