#!/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";

#!/usr/bin/perl

use strict;
use warnings;

print button(type => 'image', name => 'name', value=> 'test', text => 'Hallo');

sub button{
    my %args = @_;
    my $options = ' ';
    for my $key( qw(type name value) ){
        $options .= $key . '="' . $args{$key} . '"' if exists $args{$key};
    }
    my $text = $args{text} || 'defaulttext';
    print "<button $options>$text</button>";
}