#!/usr/bin/perl @browser=split(/\//,$ENV{'HTTP_USER_AGENT'}); $string="" if ($browser[0] ne Mozilla); print "Content-type: text/html\n\n"; print<<"print_tag";
Name | Uni | Übernachtungen | Anmelde-Datum | ||
---|---|---|---|---|---|
",$vorname; print " | ",$name; print " | ",$uni; print " | ",$email; print " | ",$tage; print " | ",@date," |
print_tag