print "\n";
print "======================================\n";

$aDate = &get_cur_time;

print "=====================================\n";


open(FH, "c:\sync.log") || die "Cannot open Log:$!\n";
while (<FH>) {
      if ($aDate)  {
     print "ERROR\n";
      }
      
};
close(FILE);
print "\n";



### Getting a time format for printing ###

sub get_cur_time  {

my $Second;
my $Minute;
my $Hour;
my $Day;
my $Month;
my $Year;
my $WeekDay;
my $DayOfYear;
my $IsDST;

($Second, $Minute, $Hour, $Day, $Month, $Year,
	$WeekDay, $DayOfYear, $IsDST) = localtime(time);

my $RealMonth = $Month + 1;

$RealMonth = "0" . $RealMonth if($RealMonth < 10);
$Day = "0" . $Day if($Day < 10);
$Hour = "0" . $Hour if($Hour < 10);
$Minute = "0" . $Minute if($Minute < 10);
$Second = "0" . $Second if($Second < 10);

my $Fixed_Year = $Year + 1900;

### Making Date Format For Files ###

#return "$RealMonth$Day$Fixed_Year";

### Different Format ###

print "Today's Date is: $RealMonth/$Day/$Fixed_Year $Hour:$Minute:$Second\n";
};