my $lines_read=0;
binmode($uploadbarcodes, ":encoding(UTF-8)");
while (my $barcode=<$uploadbarcodes>){
++$lines_read;
$barcode =~ s/\r?\n$//;
next unless $barcode;
if (length($barcode)>$barcode_size) {
$err_length += 1;
}
-