use warnings;
use strict;

open (my $fh, '<', "COVID19-Death02Apr.jpg") or die "$!";
binmode $fh;
my $binary = <$fh>; #entire binary file goes to Perl variable
print '',$binary;