sub sleeping
{
    close shift;
    ...
}

...
        elsif ( /^sleep|^s\n?\r?$/i )
        {
            threads->create( \&sleeping, $client )->detach();
        }
...