#!/usr/bin/perl # # hello_s.pl -- program "hello, world" simple para demonstrar a # saida CGI basica. # # Imprimir o header de resposta CGI, exigido para toda saida HTML. # Notar o \n adicional, para enviar a linha vazia. print "Content-type: text/html\n\n" ; # Imprimir a pagina de resposta HTML em STDOUT. print < CGI Results

Hello, world.

EOF exit ;