require "${basedir}/langs/$lang/cgi-bin/$lang.pl";
sub wanted {
if ( -f $File::Find::name && open(FILE, $File::Find::name)) {
while (<FILE>) {
while ($_ =~ /\$Lang::tr\{'([A-Za-z0-9,:_\s\/\.-]+)'\}/g) {
require "${basedir}/langs/$lang/cgi-bin/$lang.pl";
sub wanted {
if ( -f $File::Find::name && open(FILE, $File::Find::name)) {
while (<FILE>) {
while ($_ =~ /\$Lang::tr\{'([A-Za-z0-9,:_\s\/\.-]+)'\}/g) {