use MIME::Base64;
{
    local $/ = undef;
    open(my $fh, "image1.gif") or die;
    binmode $fh;
    $buf = <$fh>;
}
$mw->Photo("image1", -data => encode_base64($buf));