How can I run and end the script() linux command from Perl?

Question

#!/usr/bin/perl
$sim = "multiq";
`make SCHED=$sim`;
`script > scripter`;
`echo hi`;
print pack("c", 04);
~

This script hangs when script is called. Not sure how to get the perl script to keep running.

Answer 1

You're have to run that all in one child process if you want it to all interact. See the perlipc for various ways to handle that.

Answer 2

you might want to look at Expect to control an interactive session