GUI Perl

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