Help for this page
my $image = GD::Image->newFromPngData($data, 1);
open (my $in_fh, $infile) or die; local $/; # enable slurping mode my $data = <$in_fh>; close $in_fh;