open( PROC, "| program_a" );
sleep $n;
close PROC;