GUI Perl

use Tk;
my $main = MainWindow->new;
my $entry1 = $main->Entry->pack;
MainLoop;