Select Code to Download

sub start_client_handler                                
{
...
                    
    system($cmd);
}

#!/usr/bin/perl
use strict;
...

my $keep_alive = AnyEvent->condvar;
$keep_alive->wait;