#/usr/local/bin/perl print <<"."; Content-type: text/thml

Viva o Salgueiros

. print 'data'; print ""