my $infile = "..."
$/=undef;
open(INF,$infile);
binmode INF;
my $file = <INF>;
my @bytes = split(//,$file);