my $line = getlinefromsocket( $socket );

if ( $line eq 'ACK' ) {
   #tu was
}