Use uninitialized value in string eq at line 44, line 1 (#1) ##
##

#!/usr/local/bin/perl -w
use strict;
use diagnostics;
use CGI qw(:standard);

#############################
#initialize form variables
#############################
#my $uniq_number = &uniqueid;
#my $month = param('month');
#my $date = param('date');
#my $year = param('year');
#my $title = param('title');
#my $message = param('message');



#############################
#  TEST FORM VARIABLES SECTION
#############################
#my $month = 'January';
#my $date = '12';
#my $year = '2002';
#my $title = 'My test line';
#my $message = ' this is the first time that i have tessted a line ';

################################

##################
#flock (FILE, 2 );
##################
my $lc = 0;

print h2('Upcoming Parish Events!
');

open(READER, "events.txt") || die "$!";
open(WRITER, "+>events2.txt") || die "$!"; 

while() {
   my $line = $_;
$line =~ s/\n$//;
my @events = split ("::", $line);

if ($events[1] eq ""){$lc = $line};
$lc ++;
if ($events[1] eq ""){
##################
#flock (FILE, 8 );
#################
close (READER);
close (WRITER);}



##############################
# Print Parish Events
##############################

print WRITER "
  
    
      
        
          
            
              
                
                  $events[0] $events[1], $events[2]
                  $events[3]     $lc
                
              
            
          
          
            $events[4]
          
        
      
    
  ";
}