#!/usr/bin/perl
use Tk;
use strict;
my $mw=tkinit;
$mw->withdraw; #avoid the jumping window bug 
$mw->Popup;
MainLoop;