#!/usr/bin/perl use CGI::Carp qw(fatalsToBrowser); use strict; my $conttype = "Content-type: text/html\n\n"; &info; sub info{ print $conttype; print "\n"; print "Hello World ohne Fehler;-)\n"; print "\n"; }