if ( $oc gt 10000 ) {
      print "Overflow detected at line $count:\n";   
      my @data_arr=unpack('C*', $data);
      my $data_hex;
      foreach my $c (@data_arr) 
      {
        $data_hex .= "\%" . sprintf ("%lx", $c);
      }
      print "$data_hex\n";
    }