Select Code to Download

Select or download this

BEGIN{push(@INC,'C:/MyScripts');}

...
mainSearchFreedb('C:/MyScripts/freedb-update-20200201-20200301');

print "End of script\n";

Select or download this

package searchFreedb;

...
##############################################################

1;

Select or download this

use strict;
use utf8;
...
close(FILE);

print "End of script\n";

Select or download this

Folder: C:/MyScripts/freedb-20200201-20200301/
Folder: C:/MyScripts/freedb-20200201-20200301/blues/
...
Folder: C:/MyScripts/freedb-20200201-20200301/rock/
Folder: C:/MyScripts/freedb-20200201-20200301/soundtrack/
End of script

Select or download this

Folder: C:/MyScripts/freedb-20200201-20200301/
Folder: C:/MyScripts/freedb-20200201-20200301/blues/
Malformed UTF-8 character: \xf6\x6e\x20\x26 (unexpected non-continuati
+on byte 0x6e, immediately after start byte 0xf6; need 4 bytes, got 1)
+ in pattern match (m//) at C:\MYSCRI~1\SEARCH~2.PL line 55, <IN> line
+ 67.
Malformed UTF-8 character (fatal) at C:\MYSCRI~1\SEARCH~2.PL line 55, 
+<IN> line 67.