my ($file);
my $time = time;
use POSIX 'strftime'; 
my $runtime = strftime '%Y/%m/%d %H:%M:%S', localtime;
print $runtime;

my $page_count = 0;


while (<FILE>){
	chomp($_);
	if ( /CITY/ ... /FLORIDA/ )
        {
          my $county=0;
          
          if ( ($file) = $_ =~ m/CITY:\s+(\w+)/ ) {
	    close(FH);
	    
	    dynamic();
	    
	    if ($file != $var)
	    {
	      $page_count = 0;
	    }  
	    
	    $file .= '.txt';
 
	    open(FH, ">> CORAGN$file");
	    ++$page_count;
	    	    
	    print FH "RUN DATE/TIME:  $runtime                          DEPT OF INFO SYSTEM                                   REPORT: COSRAGIN\n";
	    print "                                            STATEWIDE DAILY  REPORT                        PAGE:	$page_count\n";
     }
        
	print FH "$_\n" unless $_ =~ m/FLORIDA/;
	
	} 
	
} 

close FILE;
closedir DIR;


sub visible {
	print "\nvar has value $var";
	print "\nfile has value $file";
	
    }
    
sub dynamic {
  
  local $var = $file;
  visible();
}