#!/usr/bin/perl -w use strict; use Tk; my $mwin = MainWindow->new(); $mwin->title("Hello"); MainLoop(); ###oh, this is important to start ###the GUI!!!!!