Someone

#!/usr/bin/perl -T
use strict;
use warnings;

my $rsyncbin  = "/usr/bin/rsync";
my $backupdir = "/var/backups/server/incremental";
my @dirs = qw(/etc /root /var/www /home);

sub first_run() {
   foreach my $dir (@dirs) {
      my $backup_this_dir = $backupdir.$dir."/";
      system ("$rsyncbin -aHpE $dir $backup_this_dir")
         or die "Can't run rsync $!";
   }
}