#! /usr/local/bin/perl 

use strict;
use warnings;
use Tk;

my $mw = MainWindow->new();
my $b  = $mw->Bitmap(
         -file       => '/path/to/betty_boop.xbm',
         -foreground => 'black',
         -background => 'white', ); 
my $l  = $mw->Label(
         -image => $b,
         -background => 'gray')->pack;

MainLoop;