Help for this page

Select Code to Download


  1. or download this
    use MIME::Base64;
open (my $image, 'Z:\capture.png') or die "$!";
$raw_string = do{ local $/ = undef; <$image>; };
$encoded = encode_base64( $raw_string );
  2. or download this
    my $decoded= MIME::Base64::decode_base64($encoded);
open my $fho, '>', 'Z:\photo.png' or die $!;
binmode $fho;
print $fho $decoded;