Help for this page

Select Code to Download

Select or download this

use File::Copy;

...
    or die "Couldn't open '$runbin/$program.x': $!; stopped";
copy(\*STDIN, PROGRAM_OUT) or die "Couldn't copy: $!; stopped";
close(PROGRAM_OUT) or die "Error while closing: $!/$?; stopped";

Select or download this

system("$runbin/$program") == 0
    or die("'$runbin/$program' failed: returned signal @{[ $? >> 8 ]} 
+stopped";