use strict;
use warnings;
use Tk;
use Tk::PNG;
my $png_image_file = 'annotate.png';
my $mw = Tk::MainWindow->new();
my $pic = $mw->Photo(-file => $png_image_file);
my $btn = $mw->Button(
-text => "Button mit PNG-Datei als Bild",
-compound => 'top',
-image => $pic,
);
$btn->pack(-padx => 10, -pady => 10,);
$mw->MainLoop();
exit(0);