<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/local/bin/perl

use CGI qw(:all);

=head1 NAME 
jornal.pl - scrip para envio de noticias pela internet
=cut

# Aqui vai um form como pretendido
print header, start_html('noticias','jbb@di.uminho.pt');
print h1('Noticias');
print start_form, 
      'titulo',textfield(-size=&gt;60, -name=&gt;'tit'), br
      'contents',textfield(-name=&gt;'con'),br,
      submit,
      endform,br;

# Como processar este form?
# Se ha' parametros entao vamos trata-los...
if (param){
  insere_na_pagina(param('tit'), param('con'));
  print h2('Bem jogado!');
}

sub insere_na_pagina{
  my ($a,$b) = @_;

  system "perl -p -i -e 's!&lt;body&gt;!&lt;body&gt;&lt;h3&gt;$a&lt;/h3&gt;$b!' jornal.html";
}

print end_html;
exit 0;	

</pre></body></html>