2023-02-25 02:14

gui-tk.pl

@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+use strict;
+use utf8;
+use Tk; # sudo apt install perl-tk
+
+my $mw = MainWindow->new();
+$mw->Label(-text => '안녕! 밥은 먹고 다니냐?')->pack;
+$mw->Button(
+    -text    => '종료',
+    -command => sub { exit },
+)->pack;
+MainLoop;