use strict;
#use File::Copy;
use Archive::Zip;

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
$year += 1900;
$mon++;
my $today =  "$mon-$mday-$year";
print $hour-$min;
my $filetobecopied = "test.pl";
my $newfile = "test1.pl";mkdir($today);
mkdir($today);

my $zip = Archive::Zip->new();
$zip->writeToFileNamed("$today/$newfile\.zip"); 


open (WRK, "logfile.xml") || die "Cannot open the input file";
read WRK, my $wrk_xml, -s WRK;
close(WRK);

my $getdate=$1 if ($wrk_xml=~ m{<date>(.*?)</date>});
print $getdate;

my $date_flag;
if($getdate == $today){ $date_flag = 'false';}
else {
	
	$date_flag = 'true';}
 
if($date_flag == 'true'){
print "test";
	
### Prepare ready.xml process . . .
my $ready=<<READY;
<backup-file>
<date>$today</date>
<name>$newfile</name>
</backup-file>

READY
print "test";
open (REA, ">>logfile\.xml") || die "Cannot Open thelog xml file";
print REA $ready; 
close (REA);
}
else
{
print "$hour- $min";	
my $ready=<<READY;
<backup-file>
<date>$today $hour-$min</date>
<name>$newfile</name>
</backup-file>
READY

open (REA, ">>logfile\.xml") || die "Cannot Open thelog xml file";
print REA $ready; 
close (REA);	
}