#!"C:\Program Files (x86)\Active Perl 5.20.1\bin\perl.exe"
use CGI::Carp qw(fatalsToBrowser);
print "Content-type:text/html\r\n\r\n";
&Test();
sub Test {
print '';
print 'visibility';
print '';
print '';
print 'Die Überschrift zum Text
';
print 'Hier der Text. Aber fehlt da nicht was?
';
print '';
print ' ';
print ' | A1 | ';
print ' A2 | ';
print ' A3 | ';
print '
';
print ' ';
print ' | B1 | ';
print ' B2 | ';
print ' B3 | ';
print '
';
print ' ';
print ' | C1 | ';
print ' C2 | ';
print ' C3 | ';
print '
';
print '
';
print 'Überschrift anzeigen, Zeile B verstecken!
';
print '';
print '';
}