open $fin1, "<", $foo or die;
binmode $fin1;

open $fin2, "<:raw", $bar or die;