Davalex

#!/usr/bin/perl

use strict;
use warnings;
use Archive::Tar;
our $backupof = "/home/davalex/";
our $backupdir="/home/davalex/backup/";
our $backupdirstore="/home/davalex/backup/";
our $backupoffile="backup";
our $backupofext=".tar.gz";
our $backupexclude="/home/davalex/backup/exclude-dirs";

my @date=localtime(time);
foreach my $elem (@date)
{
        if($elem<10)
         {
          $elem="0$elem";
         }
}
$date[4]+=1;
$date[5]+=1900;
our $newdate = "$date[5]$date[4]$date[3]$date[2]$date[1]$date[0]";
Archive::Tar->create_archive ("$backupdirstore$backupoffile-$newdate$backupofext", 9, "$backupof");