#!/usr/bin/perl

use strict;
use warnings;
use CGI;

my $cgi = CGI->new;
my %params = $cgi->Vars;
print $cgi->header;

if( exists $params{Inhalt} ){
    print "Button 'Inhal' wurde gedrückt";
}
else{
    print "Kein Button wurde geklickt -- Startseite"
}