sub { 
    kill 'INT', $pid;  
    sleep 1;          # Yield the CPU
    close $process;   
    die "timeout\n" 
};