#!/usr/bin/perl -w

use strict;
use warnings;
use CGI;

my $cgi = CGI->new();
my %params = $cgi->Vars;

print $cgi->header;
print_form();

if( $params{button1} ){
    print "Button1 geklickt";
}
if( $params{button2} ){
    print "Button2 geklickt";
}

sub print_form{
    my $script = $ENV{SCRIPT};
    print qq~
<form action="$script" method="post">
<input type="submit" value="Button1" name="button1">
<input type="submit" value="Button2" name="button2">
</form>
    ~;
}