Select Code to Download

use feature 'state';
use Time::HiRes;
...
use Fcntl ':flock';
use strict;
no strict 'refs';

if($buffer =~ /^SENDMESSAGE$digest\|(.*?)$/){
                          my $what = $1;
...
                          }elsif($touser eq "" && $room eq "" && $kind
+ ne "PRVMESSAGE") { sendToSocket($message, {});
                          }
                          next;

sub sendToSocket {
    my( $data, $params ) = @_;
...
              }
    }
}