GUI Perl

use Tk;
my $main = MainWindow->new;
$main->Label(-text => 'Hello!',
    -relief => 'sunken'
)->pack;
MainLoop;