!!! Listing.1--------------
Testseite
Das ist eine Testseite von
RSE.
!!! Listing.2--------------
!!! FARBE: #!/path/to/perl
!!! FARBE: print "Content-Type: text/html\n\n";
print "\n";
print "\n";
print "Testseite\n";
print "\n";
print "\n";
print "Das ist eine Testseite von\n";
print "RSE\n";
print "\n";
print "\n";
!!! Listing.3--------------
#!/path/to/perl
!!! FARBE: use Date::Format;
print "Content-Type: text/html\n\n";
print "\n";
print "\n";
print "Testseite\n";
print "\n";
print "\n";
print "Das ist eine Testseite von\n";
print "RSE\n";
!!! FARBE: print "um" . time2str("%T", time) . ".\n";
print "\n";
print "\n";
!!! Listing.4--------------
!!! FARBE: <: use Date::Format; :>
Testseite
Das ist eine Testseite von
RSE.
!!! FARBE: um <: print time2str("%T", time); :>.
!!! Listing.5--------------
Testseite
Das ist eine Testseite von
RSE.
!!! FARBE: um 11:11:00.