my $file = "./data"; #text file about the size of 30 MB
	open my $data, '<:encoding(euc-cn)', $file or die "Open failed: $!";