Perl/Tk

use Tk;
MainWindow->new->Button(
   -text => "Hello World!",
   -command => sub { exit; },
   )->pack();
MainLoop;

submitted by: Troy Johnson