It's been a long time, and I no longer have Expect on hand, but I think you want to change this:

my $openprogram = system("progam.exe");
[download]

To:

my $openprogram = 'progam.exe';  # or '/path/to/program.exe'
[download]

Expect->spawn is analogous to system; you don't need both.