Utilizing the Expect Module in a Perl Script

[Stephen_175]

I m having issues in correctly integrating the
Expect Module in my Perl Script below. Please advise. Thank you. Stephen

if ($radio_action eq "MOVEGENTS")
{
print "

\n";
system "/var/apache/cgi/bin/compare_gents_files.pl $julian_dt"
$command = Expect->spawn("Check the output above. Continue copying files ? (Y|N)")
unless ($command->expect(1, "y"));
}

I get these errors:
Scalar found where operator expected at ./payment_load_copy_orig_II.pl line 37, near "$command"
        (Missing semicolon on previous line?)
syntax error at ./payment_load_copy_orig_II.pl line 37, near "$command "
Execution of ./payment_load_copy_orig_II.pl aborted due to compilation errors.

[Peter Godron]

Stephen,
isn't there a semicolon missing at the end of the $command line?
Should it not be ...(Y|N)");

[David Bellamy]

Stephen you are missing a semicolon at the end of the previous line.

[Peter Godron]

Stephen,
is this still a problem?
If it is, please update with new status.
Otherwise please assign points and close.