use Tk;

my $main = MainWindow->new;

$main->Label(-bitmap => 'hourglass')->pack;


MainLoop;