if ($foo == 1) { 

  unless((my $bar = $socket->read()) =~ /one/) { 
    die $bar, $!; 
  } 
  $socket->write('foo'); 

  unless((my $bar = $socket->read()) =~ /two/) { 
    die $bar, $!; 
  } 
  $socket->write('bar');