Sebastian Lenartowicz NGTOne

## fix_craft.pl
#!/usr/local/bin/perl

use strict;
use warnings;

open(my $fh, '<:encoding(UTF-8)', $ARGV[0])
	or die "Could not open craft file $ARGV[0]";
my (@parts, @links, @line);
my $index = 0;
	#!/usr/local/bin/perl

	use strict;
	use warnings;

	open(my $fh, '<:encoding(UTF-8)', $ARGV[0])
	or die "Could not open craft file $ARGV[0]";
	my (@parts, @links, @line);
	my $index = 0;