#!/usr/local/bin/perl
#use warnings;
use strict;

use POSIX 'mktime';
use POSIX 'strftime';
my @dateParts = localtime ();
my ($day, $month, $year) = @dateParts[3 .. 5];
$year  += 1900;
$month += 1;

 open (OUTPUT, '+<', "C:\\temp\\MONTHLY.CSV") or die "Cannot open file $!\n";

 
while (defined (my $line = <OUTPUT>)) {
    chomp $line;
    my ($Date) =
        split ',', $line;

    if ($Date eq "$day $month $year") {
	close OUTPUT;
        exit
		print "\ file has already been updated today";
    
    } elsif ($Date ne  "$day $month $year") {
	# it works fine until i try this
	 #open (INPUT, "C:\\temp\\DAILY.CSV") or die "Cannot open file $!\n";
	 #open (OUTPUT, '>>', "C:\\temp\\MONTHLY.CSV") or die "Cannot open file $!\n";
      #<INPUT>;	
     #while (<INPUT>) { print OUTPUT; }             
    }}
	

#close INPUT;
#close OUTPUT;