{ my @command = ($0,@ARGV); $Window->command(?@command?); } #### #... sub initWindow { print STDERR "Initializing Tk window...\n" if ($opt_debug); $Window = MainWindow->new(-title => "Perlmonks Chat"); $Window->group($Window); #... ^^^^^^