#!/usr/bin/perl
use strict;
use warnings;
use Expect;

my $selection = "option1"
my $openprogram = system("progam.exe");
my $exp = Expect->spawn($openprogram) or die;
$exp-> send ("$selection");


It does not work :( .. I get error
Cannont exec(0):no such file or directory