use constant STAGING_AREA => "/Users/simon/Library Support/Tate/Staging/";
use constant DESTINATION => "/web/default/htdocs/photographer/";
use constant SERVER => "simon-cozens.org";

my $rs = File::RsyncP->new({
    rsyncCmd   => "ssh ".SERVER." /usr/bin/rsync",
    rsyncArgs  => [ "--perms", "--recursive" ]
});
$rs->remoteStart(0, DESTINATION);
$rs->go(STAGING_AREA);
$rs->serverClose;

Example 3: Incorporating File::RsyncP.