my $sockstatus;
while (<YOURLOOP>) {
    $sockstatus = print $socket $data;
    last unless $sockstatus;
}