RosettaCodeData/Task/Hello-world-Graphical/Perl/hello-world-graphical-1.pl

use strict;
use warnings;
use Tk;

my $main = MainWindow->new;
$main->Label(-text => 'Goodbye, World')->pack;
MainLoop();