#!/opt/gnu/bin/perl #!/usr/bin/perl header(); startFile(); footer(); exit; ####################################################### sub startFile{ print '

Schleifendurchlauf

'; my $call="/.../test.sh"; print qq{
Programm wurde mit diesem Aufruf gestartet:

$call

Folgende Ausgaben wurden produziert:
}; my @output=`$call`; print '

';
print 'TEST 
';
foreach (@output){
print $_."
";
}
print "

"; } sub header{ print $q->header; print qq{ ProgrammXYZ WebGUI BETA Version ! Bei Problemen bitte an ... wenden.

Programm XYZ WebGUI

}; } # HTML footer sub footer{ print qq{

entwickelt von ... }; print $q->end_html; }