binmode STDIN or die $!;
binmode STDOUT or die $!;