Ошибка системной функции Perl / Tk?

Question

Я делаю калькулятор «все в одном» (наверное). Вот мой код (я знаю, что не все подпрограммы определены, я все еще работаю над этим, как вы можете видеть):

use 5.12.4;
use warnings;
use Tk;

##### Create MainWindow #####
my $button_menu = new MainWindow;
#############################

##### MainWindow Buttons#####
my $calculator_button = $button_menu->Button(-text=>"Calculator",
                                         -width=>10,
                                         -relief=> 'raised',
                                         -command=>\&open_calculator)->pack();

my $formulas_button = $button_menu->Button(-text=>"Formulas",
                                   -width=>10,
                                   -relief=> 'raised',
                                   -command=>\&open_formulas)->pack();


sub open_calculator{
    system(qq{start "C:\\Windows\\system32\\calc.exe"});
}

MainLoop;

Почему системная функция не открывает калькулятор Windows?

Спасибо!

Answer 1

Попробуйте это:

system(qq{start calc});

Answer 2

system('start C:\Windows\system32\calc.exe');