#!/usr/bin/perl
$| = 1;
use strict;
use warnings;
use CGI qw(:all);

my $cgi = new CGI;

print $cgi->start_button({-name=>'A', -value=>'12'}),
    'Das ist mein Button',
    $cgi->end_button(), "\n\n";