use strict;
    use warnings;
    use FindBin;
    $0 = "stealth";
    use Tk;
    use Tk::PNG;
    my $png = "$FindBin::Bin/myicon.png";
    my $mw = Tk::MainWindow->new();
    my $icon = $mw->Photo(-file => $png);
    my $btn = $mw->Button(
        -image => $icon,
    );
    $btn->pack();
    $mw->MainLoop();