my $encodedImg = q{very long
multi line
multi line
multi line
multi line
multi line
multi line
multi line
multi line
multi line
multi line
multi line
encoded data};

my $can_encImg = $canvas->Photo( -data => $encodedImg );