1 files changed, 0 insertions, 20 deletions
diff --git a/perl_scripts/tk.pl b/perl_scripts/tk.pl
deleted file mode 100644
index f8d1bc068df3d..0000000000000
--- a/perl_scripts/tk.pl
+++ /dev/null
@@ -1,20 +0,0 @@
-# make sure every subprocess has it's exit and that the main one
-# hasn't
-sub fun {
-    unless ($pid = fork) {
-        unless (fork) {
-            use Tk;
-            $MW = MainWindow->new;
-            $hello = $MW->Button(
-                -text    => 'Hello, world',
-                -command => sub {exit;},
-            );
-            $hello->pack;
-            MainLoop;
-        }
-        exit 0;
-    }
-    waitpid($pid, 0);
-}
-
-1;