#!"C:\Program Files (x86)\Active Perl 5.20.1\bin\perl.exe"
use CGI;
use CGI::CARP qw(fatalsToBrowser);
my $cgi = new CGI;
my $act = $cgi->param('act');
if($act eq "Test2") { Test2(); }
else { Test1(); }
sub Test1 {
print "Content-type:text/html\r\n\r\n";
print '';
print '';
print 'EPROM - Monitoring';
print '';
print '';
print '';
print '';
print '';
}
sub Test2 {
print "Content-type:text/html\r\n\r\n";
print 'Dies ist die Bestätigung, dass das Script funktioniert';
}