Select Code to Download

{
   my @command = ($0,@ARGV);
   $Window->command(?@command?);
}

#...
sub initWindow {
...
    $Window = MainWindow->new(-title  => "Perlmonks Chat");
    $Window->group($Window);
#...         ^^^^^^