...
open(my $fh, 'index.gif' ) or die $!;
binmode $fh;
..