#!/usr/bin/perl

use strict;
use warnings;

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";
         }
}
my $date[4]+=1;
my $date[5]+=1900;
our $newdate = "$date[5]$date[4]$date[3]$date[2]$date[1]$date[0]";
print $newdate;