#! /usr/local/bin/perl -w
use Tk;

my $main = MainWindow->new();
my $wgif = $main->Bitmap("./someicon.ico");
$main->iconbitmap($wgif);

my $mbut = $main->Menubutton(-text => 'Menu', -tearoff => 1)->pack();

&MainLoop;