#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::Photo;

my $mw = tkinit();
my $photo = $mw->Photo(-file => '/path/to/file.gif');
$mw->Button(-image => $photo)->pack();

MainLoop;