Ausgabe mit dem CGI-Modul

timecgi.pl

#!/usr/local/bin/perl -Tw use strict; use CGI; my $q = new CGI; print $q->header("text/html"), $q->start_html(-title => "Die Zeit"); print $q->h2("Die Uhrzeit"), $q->hr, $q->p("Beim letzten Print war es", $q->b(scalar localtime)), $q->end_html;

Dies liefert folgende Ausgabe, die noch etwas formatiert wurde:

Content-Type: text/html; charset=ISO-8859-1 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <HTML LANG="en-US"> <HEAD><TITLE>Die Zeit</TITLE></HEAD> <BODY><H2>Die Uhrzeit</H2><HR> <P>Beim letzten Print war es <B>Mon Oct 30 16:57:45 2000</B></P> </BODY> </HTML>

Die wichtigsten HTML-Elemente können so mit Hilfe des CGI-Moduls erzeugt werden.