my $image = GD::Image->newFromPngData($data, 1);

##</code><code>##

open (my $in_fh, $infile) or die;
local $/; # enable slurping mode
my $data = <$in_fh>;
close $in_fh;