do 
{ 
if($key eq "\n") 
#execute sub_example() 
if($key eq "261) 
#do something else 
}while ((key = getch()) ne ERR) 

sub_example 
{ 
do 
{#....... 
sleep 5 
#.... 
while(1>0)} 
}