# !/usr/bin/perl -w use strict; use CGI qw(param); use CGI::Carp qw(fatalsToBrowser); my $headline = "Ein sauberes Script!"; system( "sh","startdevicelog.sh"); print "Content-type: text/html\n\n"; print "Test\n"; print "

$headline

\n"; print "\n";