use Expect;

$lis = Expect -> spawn ("/bin/yourprog"); 
$lis -> expect (30, "Please Enter your selection:");
print $lis "1\r";