[Rio-pm] Entendendo

[Daniel de Oliveira Mantovani]

Boa noite pessoal, não estou entendendo algumas partes desse programa,
olhem:
#!/usr/bin/perl

use strict;
use warnings;
use CGI qw( :standard );

*our ($name, $value) = split ( "=", $ENV{ QUERY_STRING} );*

print header(),start_html("Simple Life Corp");
print h1(align_center("Simple Life Corp"));
print p('Entre com apenas uma palavra favorita sua aqui: ');
print '<form method = "GET" action = "aplicativo.pl">';
print '<input type ="text" name = "word">';
print '<input type = "submit" value = "Submit Word">';
if ($name eq 'word'){
print p(' Sua palavra favorita: ',b($value) );
}
print end_html();


sub align_center
{
my $align_center = shift;
return "<p align=center>$align_center</p>"
}

A linha em negrito que é responsável pelo valor que eu envio da caixa chegar
ao nome?
Isso me confundiu completamente.
-- 
Daniel de Oliveira Mantovani
"A sede pelo aprendizado é insaciável"
http://mantovanihouse.blogspot.com/
------------------------------------------------------------
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20080912/87e18970/attachment.html>