my $bi = 'C:\Program Files\program.exe';

 if ($ans =~ /\bn\b/i){
   print "\n### Now starting program.exe\n\n";
   system ($bi) and print "Could not execute $bi: $!\n";
   stop_services();
 }