use MIME::Base64;
open (my $image, 'Z:\capture.png') or die "$!";
$raw_string = do{ local $/ = undef; <$image>; };
$encoded = encode_base64( $raw_string );