use strict;
use warnings;
use File::RsyncP;

my $rs = File::RsyncP->new({
                logLevel   => 1,
                rsyncCmd   => "/bin/rsync",
                rsyncArgs  => [
                        "--numeric-ids",
                        "--perms",
                        "--owner",
                        "--group",
                        "--devices",
                        "--links",
                        "--ignore-times",
                        "--block-size=700",
                        "--relative",
                        "--recursive",
                        "-v",
                    ],
            });

my $port = 873;
my $host = "storage.server";
my $module = "reports";
my $destDirectory = "/home/incoming/";

$rs->serverConnect($host, $port);
$rs->serverService($module, 0, 0, 0);
$rs->serverStart(1, ".");
$rs->go($destDirectory);
$rs->serverClose;