while (<*.sql>) {
   
  next if $_ eq 'Activate.sql';

  $file = $_;
  
  open (FILE, "$file");

  my $line_number = 0;
  my $run;

 LINE: while (<FILE>){
     
    my $line = $_;
    $line_number = $line_number +1;

    $run = 1;

    if ($line_number == 1){
      $run = 0 if $line !~ m/^ALTER\sPROCEDURE\s/;
   
      last LINE;
    }
    else {
  
      $run = 1;
    }
    last LINE;
  }
  
  if ($run == 1){
    
    push (@files, $file);
  }
  else {
    #Do nothing
  }
}

print "@files";


foreach (@files) {

  my $FH = $_;

  open (FILE, "<$FH"); 

  
 OUTER: while ((<FILE>)) {

    my $line_B = $_;

    print "\n\nI am here\n";
    last if eof;
    
    my $batch;
    
    do {
      
      $batch .= $line_B;
     
    } until ($line_B =~ m/^\s*go\s*$/i);
   
    $dbh->do($batch) if ($line_B =~ m/^\s*go\s*$/i);

    last if ($line_B =~ m/^\s*go\s*$/i);

  }

}