Select Code to Download

sub _replicate{
    my $ref = shift;
...
    my $rsync_cmd = $rsync.$server.$from.$to;
    print "Thread-",threads->self->tid," executing ", $rsync_cmd;
}