db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free# Purpose: To create internationalized versions of default.svg.
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free print "$values[0]\n";
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free my $filename = "default." . $values[0] . ".svg";
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free open( OUTPUT, '>:encoding(UTF-8)', $filename ) or die "Cannot open $filename.\n";
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free # Open input again to return to top...
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-free open (INPUT, '<:encoding(UTF-8)', "default.svg") or die 'Cannot open input\n';
db6331aff2cf8bdbc70a55c8b3d9970425f10e77tavmjong-freeprint "Created $count files.\n";